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PRODUCT CODE 
PRODlCT NAME. 
PRODUCT DATE 
MAINTAINER; 
AUTHORS: 



.REM 6 

IDENTIFICATION 

AC-T708B-MC 

CZKDLBO KDJll FLOATING POINT DIAGNOSTIC 

15-MAR-84 

DIAGNOSTIC ENGINEERING 

HENRY ENMAN, JIM PITTMAN, BARRY IRRGANG 



THE INFORMATION IN THIS DOCUMENT IS SUBJECT TO CHANGE WITHOUT 
NOTICE ANO SHOULD NOT BE CONSTRUED AS A COMMITMENT B* DIGITAl 
EQUIPMENT CORPORATION. DIGITAL EQUIPMENT CORPORATION ASSUMES NO 
RESPONSIBILITY FOR ANY ERRORS THAT MAY APPEAR IN THIS DOCUMENT. 



NO RESPONSIBILITY IS ASSUMED FOR THE USE OR 
SOFTWARE ON EQUIPMENT THAT IS NOT SUPPLIED BY 
AFFILIATED COMPANIES. 



RELIABILITY Of 
DIGITAL OR ITj 



COPYRIGHT CO 1983, 1984 BY DIGITAL EQUIPMENT CORPORATION 

THE FOLLOWING ARE TRADEMARKS OF DIGITAL EQUIPMENT CORPORATION: 

MASSBUS 



DIGITAL 
DEC 



POP 
DtCUS 



UN I BUS 
DEC TAPE 



SEQ 0001 



6 



CI 

KDJll^SC tNTA U°JlAR 84 "$M l «»"«*> * MrtR "«" 16,55 PAGF 2 SUQ 0003 

^ ,REM 6 

40 HISTORY 



41 

45 OCT 83 REV. A flRST RELEASE 

44 F£B-d4 REV. B CORRECTIONS MADE TO: 

4 f > 1. CORRECT VECTOR AREA MAINTENANCE PROBLEM 

4^ i>. TURN CACHE MEMORY SYSTEM OFF DURING NON CACHE TESTS 

4' 3. ENSURE THAT CPU ERROR REGISTER IS CLEARED AFTER 

4v* COMPLETION QF TEST THAT MIGHT CAUSE IT TO BE SET. 

4"> 4. SAVE PC AND CONTENTS OF* R6 ON UNEXPECTED) INTERRUPTS 

50 

Si L 



D2 



GLOBAL. 
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MAC 15-MAR-84 


15:51 APT MAILBOX -ETABLfc 




610 


001176 


123456 


TABlj 


.WORD 


123456 




611 


001200 


000000 




.WORD 


OOOOOO 




6i;? 


001202 


000000 




.WORD 







613 


001204 


000001 




.WORD 


1 




614 


001206 


055555 


TAB2: 


.WORD 


055555 




615 


001210 


177777 




.WORD 


177777 




616 


001212 


145671 




.WORD 


145671 




bl7 


001214 


100000 




.WORD 


100000 




618 


001216 


003000 


TAB3: 


.WORD 


003000 




619 


001220 


123456 




.WORD 


123456 




620 


001222 


000000 




.WORD 







b21 


001224 


000000 




.WORD 







622 


001226 


055555 


TAB4: 


.WORD 


55555 




623 


001230 


177777 




.WORD 


-1 




624 


001232 


000000 




.WORD 







625 


0012*4 


000000 




.WORD 







' *1 O 


001236 


043243 


TAB5: 


.WORD 


43243 




<S27 


001240 


000000 




.WORD 







628 


001242 


000000 




.WORD 







629 


001244 


000000 




.WORD 







630 


001246 


162400 


TAB5A: 


.WORD 


162400 




631 


001250 


OOOOOO 




.WORD 







632 


001252 


000000 




.WORD 







653 


001254 


OOOOOO 




.WORD 







e:w 


001256 


OOOOOO 


TAB6: 


.WORD 







6 55 


001260 


OOOOOO 




.WORD 







636 


001262 


OOOOOO 




.WORD 







637 


001264 


OOOOOO 




.WORD 







638 


001266 


047050 


TAB6A: 


.WORD 


47050 




639 


001270 


010000 




.WORD 


10000 




640 


001272 


OOOOOO 




.WORD 







641 


001274 


OOOOOO 




.WORD 







642 


001276 


000200 


TAB7: 


.WORD 


200 




643 


001300 


OOOOOO 




.WORD 







644 


001302 


OOOOOO 




.WORD 







645 


001304 


OOOOOO 




.WORD 







646 


001306 


000200 


TAB8: 


.WORD 


200 




64 7 


001310 


OOOOOO 




.WORD 







648 


001312 


OOOOOO 




.WORD 







649 


0C1314 


000001 




.WORD 


1 




650 


001316 


000400 


OOOOOO OOOOOO TAB9z 


.WORD 


400,0,0,0 




651 


001324 


OOOOOO 










652 


001326 


030000 


TAB 10 j 


.WORD 


30000 




653 


001330 


O030O0 




.WORD 


3000 




654 


001332 


OOOOOO 




.WORD 







655 


001334 


OOOOOO 




.WORD 







656 


001336 


016400 


TABU: 


.WORD 


16400 




657 


001540 


OOOOOO 




.WORD 







658 


001342 


OOOOOO 




.WORD 







659 


001344 


OOOOOO 




.WORD 







660 


001346 


030000 


003000 000002 TABllA: 


.WORD 


30000.3000.2 


.0 


661 


001354 


OOOOOO 










662 


001356 


016100 


OOOOOO OOOOOO TAB12: 


.WORD 


16100,0.0.1 




663 


001364 


000001 










664 


001366 


016200 


TAB13: 


.WORD 


16200 




665 


001370 


OOOOOO 




.WORD 








SEQ 0016 
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E2 



5EQ 0017 



666 


001372 


000000 








.WORD 





66 7 


001374 


000001 








,WCRD 


1 


668 


001376 


030000 


003000 


OOOOOO 


TAB13E 


i: .WORD 


30000,3000,0,1' 


669 


001404 


140000 












670 


001406 


030000 






TAB14: 


.WORD 


30000 


671 


001410 


000000 








.WORD 





b7^ 


001412 


000000 








.WORD 





673 


001414 


000000 








.WORD 





674 


001416 


024 700 






TAB15: 


.WORD 


24 700 


675 


001420 


000000 








.WORD 





676 


001422 


000000 








.WORD 





677 


001424 


000000 








.WORD 





678 


001426 


025000 






TAB16: 


.WORD 


25000 


679 


001430 


175363 








.WORD 


175363 


680 


0G1432 


123456 








.WORD 


123456 


681 


001434 


123456 








.WORD 


123456 


682 


001436 


030000 






TAB17: 


.WORD 


30000 


683 


001440 


007020 








.WORD 


7020 


684 


001442 


000000 


OOOOOO 






.WORD 


0.0 


685 


001446 


023456 






TAB18J 


.WORD 


23456 


686 


001450 


000000 








.WORD 





68 r 


001452 


OOOOOO 








.WORD 





688 


001454 


000001 








.WORD 


1 


689 


001456 


100200 


OOOOOO 


OOOOOO 


TA021j 


.WORD 


100200,0.0,0 


690 


001464 


OOOOOO 












691 


001466 


100400 


OOOOOO 


OOOOOO 


TAB22 


.WORD 


100400,0,0,0 


69? 


001474 


OOOOOO 












693 


001476 


000200 


OOOOOO 


OOOOOO 


TAB23 


.WORD 


200.0,0,1 


694 


001504 


000001 












695 


001506 


062400 


OOOOOO 


OOOOOO 


TAB24 


.WORD 


62400,0,0,0 


696 


001514 


OOOOOO 












697 


001516 


001100 


OOOOOO 


OOOOOO 


TAB25 


.WORD 


1100,0,0,0 


698 


001524 


OOOOOO 












699 


001526 


100600 


OOOOOO 


OOOOOO 


TAB26 


.WORD 


100600,0,0,0 


700 


001534 


OOOOOO 












701 


001536 


0010O0 


OOOOOO 


OOOOOO 


TAB27 


.WORD 


1000,0,0,0 


702 


001544 


OOOOOO 












703 


001546 


000600 


OOOOOO 


OOOOOO 


TAB28 


.WORD 


600,0,0,0 


704 


001554 


OOOOOO 












705 


001556 


010100 


OOOOOO 


OOOOOO 


TAB29 


.WORD 


10100,0,0.0 


706 


001564 


OOOOOO 












707 


001566 


O101OO 


OOOOOO 


002000 


TAB29J 


\i .WORD 


10100.0,2000,0 


708 


001574 


OOOOOO 












709 










I 






710 


001576 


000500 


OOOOOO 


OOOOOO 


TAB30 


.WORD 


500 .0,0,0 


711 


001604 


OOOOOO 












712 


001606 


100400 


OOOOOO 


OOOOOO 


TA831 


.WORD 


100400,0,0,0 


713 


001614 


OOOOOO 












714 


001616 


0160O0 


OOOOOO 


OOOOOO 


TAB 32 


.WORD 


16000,0,0.0 


715 


001624 


OOOOOO 












716 


001626 


011600 


OOOOOO 


OOOOOO 


TAB33 


.WORD 


11600,0,0,0 


717 


001634 


OOOOOO 












718 


001636 


000640 


OOOOOO 


OOOOOO 


TAB 34 


.WORD 


640,0.0.0 


719 


001644 


OOOOOO 












720 


001646 


07 7600 


OOOOOO 


OOOOOO 


TAB40 


> .WORD 


77600, 0*0,0 


721 


00X654 


OQOOOQ 
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12* THE SOFTWARE SWITCH REG. T STER HAS NO EFFECT ON THE OPERATION OF 

1^0 THIS DIAGNOSTIC. 

131 

15; 2.3 OPERATION UNDER APT 

133 

134 THERE ARF NO ABNORMALITIES IN THE EXECUTION OF THIS DIAGNOSTIC 

135 WHEN OPERATING IN AN APT ENVIRONMENT. PROBLEMS CAUSED BY THf- 
13* ASYNCHRONOUS HALTS OF THE DIAGNOSTIC BY THE APT MONITOR HAVE 
137 NOT tfEEN NOTED. 

158 

133 

140 3.0 ERROR INFORMATION 

141 

142 ERRORS WILL CAUSE THE FOLLOWING ERROR MESSAGE TO BE PRINTED: 

143 

144 ERROR DURING FPP TESTING 

145 ERROR - f UNIQUE ERROR NUMBER) 

146 ERROR PC » (PC AT TIME. Of ERROR) 
14: 

148 IHt. ERROR WIl l. THEN BE REPORTED TO APT AND THE PROGRAM 

14^ WILL. HALT. 

ISO 

151 4.o progr: ;s report 

152 

l r >5 AT THE ENl> OF EACH PASS THfc DIAGNOSTIC NAME AND PASS COUNT ARE PRINTED, 

154 

15S £ 
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740 










741 










74? 










743 










744 










745 










746 










747 










748 










749 










750 










751 










752 


001766 


005015 


040503 


044103 


753 


001774 


020105 


054523 


052123 


754 


002002 


046505 


042440 


051122 


755 


002010 


051117 


000 




756 


002013 


015 


042412 


051122 


757 


002020 


051117 


042040 


051125 


758 


002026 


047111 


020107 


050106 


759 


002034 


020120 


C42524 


052123 


760 


002042 


047111 


000107 




761 


002046 


005015 


051105 


04 7522 


76P 


002054 


020122 


020043 


000075 


763 


002062 


005015 


051105 


04 7522 


764 


002070 


020122 


041520 


036440 


765 


002076 


000 






766 


0020 / / 


015 


020012 


020040 


767 


002104 


000 






768 




002106 







1-84 16;! 
GLOBAL tl 



»8 



PAQF 10 

SECTION 



S£Q 0019 



.SBTTL GLOBAL TEXT SECTION 



J ♦♦ 



THE GLOBAL TEXT SECTION CONTAINS FORMAT STATEMENTS, 
MESSAGES, AND ASCII INFORMATION THAT ARE USED IN 
MORE THAN ONE TEST. 



i FORMAT STATEMENTS USED IN PRINT CALLS 

i 

ERRMSG:: .ASCIZ <CR><LF>/CACHE SYSTEM ERROR/ 

FPPERR: .ASCIZ <CR><LF>/ERROR DURING FPP TESTING/ 

ERR1: .ASCIZ <CR><LF> /ERROR »/ 

ERR2: , ASCIZ <CR><LF > /ERROR PC »/ 

$CRLF : .ASCIZ <CR><LF>/ / 
.EVEN 



H2 

Gl.OBAi. AR*AS MACU1 30A<1052) 15 -MAR -84 16:58 PAGE ?0 SEQ 0020 

KD J 11 A. MAC 15-MAR-84 15:51 GLOBAL ERROR REPORT SECTION 

769 .SBTTL GLOBAL ERROR REPORT SECTION 

770 

771 ,♦♦ 

''<? i THE GLOBAL ERROR REPORT SECTION CONTAINS MESSAGE PRINTING AReAS 

7™ , USED BY MORE THAN TEST TO OUTPUT ADDITIONAL ERROR INFORMATION* 

/ 74 i - - 

775 



I 






GLOB At AREAS 
KD J 11 A. MAC 



7 7b 
7/7 

7 78 
7 79 
780 
781 
782 
783 
784 
785 
786 
78 7 
788 
78 c > 
7 90 
791 
79? 
79? 
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GLOBAL SUBROUTINES SECTION 



SEQ O021 



794 
795 
796 
79/ 
798 
799 
800 
801 
80? 
803 
804 
BOS 
806 
80/ 
808 
809 
810 
811 
81? 
813 
814 
815 
816 

h: / 

818 
81 u 
820 
821 
82? 
823 
8?4 
825 
826 
82/ 
826 
«?w 
850 



002106 
002110 
00211? 
002114 
002116 
002120 



003122 

002124 
002126 



002130 
002132 
002134 
002142 

002146 
002150 
002152 

002 lbO 
002164 
002166 
002170 

00217? 
0021/4 

002176 



012600 
012605 
104000 
000001 
002013 
000110 



000000 
000207 
000207 



010446 
010146 
012/67 
000167 

010446 
010146 
012767 
00536 7 
00140? 
022421 
01' ^3 

012604 
0QQ20? 



000003 
000012 



000005 
176654 



176676 



176660 



.SBTTL GLOBAL SUBROUTINES SECTION 



j THE GLOBAL SUBROUTINES SECTION CONTAINS THE SUBROUTINES 
I THAT ARE USED IN MORE THAN ONE TEST, 



jFPP COMMON SUBROUTINES 



WLDTRP: 


MOV 


(SP)»,RO 




MOV 


CSP)*.R5 




ERROR 






.UORO 


1 




.WORD 


FPF ERR 




JMP 


(RO) 


TRPFLG: 


.WORD 





ERRFP: 


RTS 


P7 


ERR: 


RTS 


R7 



;SAVE PC 

jSAVE STATUS AND RESTORE SThCK 

,ALL ERRORS TO TRAP TO EMT VECTOR 

, UNIQUE ERROR NUMBER 

{ADDRESS OF ERROR MESSAGE 

}G0 BACK INLINE 



SUBROUTINE DATA VERFICATION 



CALLED BY 
INPUT: 



JSR 



R7..DATVER 



CR4)-EXPECTED DATA 
CRD-RECEIVED DATA 

VERIFIES THAT THE A CONSECTIVE WORDS STARTING WITH ( R4 ) ARE 
FOUR WORDS ADDRESSED BY CHI). THE CONTENTS OF R4 , AND Rl ARE NUT 



THIS ROUTINE 

EQUAL TO THE 

DISTURBED, 

LOCATION "COUNT" . IF NOT LQUAL 

IF THE STATUS IS FLOATING MODE, 

ARE SIMPLY CHECKED FOR ZEROS 



DATVFR: MOV 

MOV 
MOV 
JMP 



DATVER 



DAT1 



e*i 



MOV 
MOV 
MOV 
DEC 
3FQ 
CMP 
BFQ 
MOV 
MOV 
RTS 



R4, -CSP) 
Rl. CSP) 
03, COUNT 
DAT1 

R4, (SP) 

Rl. CSP) 

05. COUNT 

COUNT 

2$ 

(R4)*,(Rl)t 

DAT1 

( SP)»,H1 

(SP)* 4 R4 

R7 



TO SIGNIFIES DATA ERROR 

THE LAST TWO BYTES OF RECEIEVED 



i SAVE R4 

i SAVE Rl 
j SET UP ITERATION COUNT 



; SAVE R4 
{SAVE Rl 
j SET UP ITERATION COUNT 

{BRANCH IF DONE 



{RESTORE Rl 

jRfc'STORE R4 

jGQ BACK TO CAIUTNG ROUTINE 

ilF DATA ERROR, COUNT NE 



Jl 



GLOtSAi. ART AS 


MACTfll 


KD J HA. MAC 


15 -MAR -8' 


»-89 


000030 


290 


000034 


^n 


000060 


292 


000064 


2 C >3 


000240 


294 




295 




096 




29/ 




298 


000250 


299 




300 




301 




so: 1 


17757? 


305 


17/574 


304 


17~ , 576 


s or* 


172516 


306 




30 7 




308 




309 


1^7600 


310 


17/60? 


311 


177604 


31.? 


17 7606 


313 


177610 


314 


17/612 


315 


1/7614 


316 

31 7 

3 in 


177616 




319 




320 


17/620 


321 


1 / 7622 


322 


17 7624 


3 ^3 


1 / /626 


3. 4 


1/7630 


325 


177632 


326 


177634 


32/ 


177636 


328 




3? 4 




330 




331 


17 7640 


332 


177642 


333 


177644 


334 


17/646 


33'> 


177650 


336 


1 / /652 


33/ 


1//654 


338 


177656 


35'J 




340 




341 




34 ? 


1 / 7660 


34 3 


1 7 7662 


344 


177664 



30AC1052) 
15:51 



15-MAR-84 

BASIC 



16:53. -£AGE 9 



jfcFINITIONS 



SEQ 0009 



EMTVEO 30 jjEMULATOR TRAP CEMT) TERROR** 

TRAPVEC-34 j ("TRAP" TRAP 

TKVEC- 60 jjTTY KEYBOARD VECTOR 

TPVEC* 64 jiTTY PRINTER VECTOR 

PIRQVEC-240 }|PROGRAM INTERRUPT REQUEST VECTOR 

.SBTTI MEMORY MANAGEMENT DEFINITIONS 

i*KTll VECTOR ADDRESS 

MMVEC- 250 

j*KTll STATUS REGISTER ADDRESSES 



SRO 
SRI 
SR2 
SR3 



177572 
177574 
177576 

172516 



:*USER "I" PAGE DESCRIPTOR REGISTERS 

UIPDRO- 177600 
UIPDR1- 177602 
UIPDR2- 1/7604 



UIPDR3- 


177606 




UIPDR4- 


177610 




UIPDR5- 


177612 




UIPDR6- 


177614 




UIPDR7- 


177616 




j*U'JER ' 


"D" PAGE 


DESCRIPTOR REGISTURS 


UOPDRO- 


177620 




U0PDR1- 


177622 




U0PDR2- 


17 7624 




U0PDR3- 


17 7626 




UDPDR4- 


177630 




U0PDR5- 


17763? 




L0PDR6- 


1//634 




U0PDR7- 


177636 




»*USER 


"I" PAGE 


AODRESS REGISTERS 


UIPARO- 


1//640 




UIPAR1- 


17764? 




UIPAR2- 


3 77644 




UIPAR3- 


17/646 




UIPAR4- 


17 7650 




U1PAR5- 


17/65? 




UIPAR6- 


1//654 




UIPAH7- 


17/656 




i*USER 


"D" PAGE 


ADDRESS REGISTERS 


UDPARO- 


1/7660 




U0PAR1- 


1 / /66? 




U0PAH2* 


1/7664 





K 



GLOBAL AREAS 
KDJUA.MAC 



887 
888 
889 
890 
891 
892 
893 
894 
89b 
896 
897 
898 
899 
900 
901 
902 
903 
904 
905 
906 
907 
908 
909 
910 
911 
912 
913 
914 
915 
916 
917 
918 
919 
920 
921 
922 
923 
924 
925 
926 
927 
928 
929 
930 
931 
932 
933 
934 
935 
936 

93 7 
938 
939 
940 

94 1 
942 



MACV11 30AU052) 
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Tl FPP REGISTER BxT TESTS 



SEQ 0023 



002422 
002426 
002430 
002432 
002436 
002442 
002444 
002446 
002450 
002452 
002454 
002456 
002460 
002462 

002464 
002466 
0024 72 
0024 76 
002500 
002504 
002510 
002514 
002520 
002524 
002530 
002534 
002540 
002544 
002550 
002554 
002560 
002564 
002566 
002570 
002574 
002S00 
002602 
002604 
002610 
002616 
002620 
002626 
002630 
002636 
002640 
002646 
002650 
002650 



005267 
170011 
005005 
012702 
012703 
170400 
174012 
005004 
170400 
170401 
170402 
170403 
17 0404 
170405 

010501 
070127 
062701 
000111 
172467 
174067 
0C0167 
172567 
174167 
000167 
172667 
174267 
000167 
172767 
174367 
000167 
172467 
174004 
172404 
000167 
172467 
174005 
172405 
000167 
026767 
001014 
026767 
001010 
026767 
001004 
02676 7 
001403 

104000 



176356 



001066 
001076 



000014 
002500 

176362 
176366 
000074 
176346 
176352 
000060 
176332 
176336 
000044 
176316 
176322 
000030 
176302 



177710 
176266 



17 7674 
176252 

176244 

176236 

176230 



IR5-FPP POINTER 

{Rl-TEMPORARY COUNTER 

{R2-P0INTER TO EXPECTED DATA 

;R3-P0INTER TO RECEIVED OMTA 

{R4-0DD/EVEN COUNTER 

l t *******«.*************************** *** 

TSTlj 

$TFSTN 



mbt: 



MBT2A: 



BTGO: 



MACO: 
MACOA 

MAC1: 
MAC2; 
MAC 3: 
MAC4: 

MAC5: 

176260 MACE: 
176252 
176244 
176236 

BTLR: 



INC 

SETD 

CLR 

MOV 

MOV 

CLRD 

STD 

CLR 

CLRD 

CLRD 

CLRD 

CLRD 

CLRD 

CLRD 

MOV 
MUL 
ADD 
JMP 
LDO 
STD 
JMP 
LDD 
STD 
JMP 
LDD 
STD 
JMP 
LDD 
STD 
JMP 
LDD 
STD 
LDD 
JMP 
LDD 
STD 
LDD 
JMP 
CMP 
BNE 
CMP 
BNE 
CMP 
BNE 
CMP 
BFQ 

ERROR 



R5 

0BTEXP.R2 

0BTRES.R3 

ACO 

AC0,(R2) 

R4 

ACO 

AC1 

AC2 

AC3 

AC4 

AC5 

R5.R1 

014, Rl 

OMAC0.R1 

(Rl) 

BTEXP.ACO 

ACO.BTRES 

MACE 

BTEXP.AC1 

AC1.BTRES 

MACE 

BTEXP.AC2 

AC2.BTRES 

MACE 

BTEXF.AC3 

AC3.BTRES 

MACE 

BTEXP.ACO 

AC0.AC4 

AC4.AC0 

MACOA 

BTEXP.ACO 

AC0.AC5 

AC5 ; AC0 

MACOA 

BTEXP.BTRES 

BTER 

BTEXP»2,BTRES*2 

BTER 

BTEXP»4,3TRES»4 

BTER 

BTEXP*6,BTRES*6 

MBT8 



* * W V ********************* 

j INCREMENT TEST NUMBER 

{SETUP FPP ACC POINTER 

{POINT TO TEST DATA 

{POINT TO RECEIVED DATA 

; SETUP FPP REGISTER VALUES 

:CLEAR EXPECTED VALUE 

: SETUP FPP REGISTER VALUES 



{GET FPP AC NUMBER INTO Rl 
jALLOW 10 LOCATIONS FOR OPERATION 
{SETUP JMP LOCATION 



LOAD TEST DATA INTO TEST REGISTER 

SAVE TEST RESULT 

GET OUT 

LOAD TEST DATA INTO TEST REGISTER 

SAVE TEST RESULT 

GET OUT 

LOAD TEST DATA INTO TEST REGISTER 

SAVE TEST RESULT 

GET OUT 

LOAD TEST DATA INTO TEST REGISTER 

SAVE TEST RESULT 

GET OUT 



TEST 



jLOAD 

{SAVE TEST 
{GET OUT 
;LOAD TEST 
{LOAD TEST 
{STORE RESULT 
{GET OUT 



DATA INTO 
RESULT 



TEST REGISTER 



DATA INTO 
REGISTER 

INTO XFER 



TEST XFER REGISTER 



FPP REGISTER 



{BRANCH IF REGISTER ERROR 



{GOOD RESULT 

{ALL ERRORS TO TRAP TO EMT VECTOR 



L2 



GLOBAL 


ARIAS 


MACY11 
5-MAR-84 


30AQ05; 
15:51 


KDJ11A. 


MAC 1 


94 3 


002652 


000002 




944 


002654 


002013 




945 








946 








94 7 


002656 






948 


002656 


005001 




949 


002660 


005705 




950 


002662 


001413 




951 


002664 


02052 7 


000004 


952 


002670 


100010 




955 


002672 


174067 


176200 


954 


002676 


004767 


000246 


955 


002702 


001403 




956 


002704 


104000 




95 7 


002 7C6 


000003 




958 


002710 


002013 




959 








960 


002712 


020527 


000001 


961 


002716 


001410 




962 


002720 


174167 


176152 


963 


002724 


004767 


000220 


964 


002730 


001403 




965 


002732 


104000 




966 


002734 


000004 




967 


002736 


002013 




968 








969 


002740 


020527 


000002 


970 


002744 


001410 




971 


002746 


174267 


176124 


972 


002752 


004 76/ 


000172 


973 


002756 


001403 




974 


002 760 


104000 




975 


002762 


000005 




976 


002764 


002013 




977 








978 


002766 


020527 


000003 


979 


002772 


001410 




980 


0027 74 


174367 


176076 


981 


003000 


004 767 


000144 


982 


003004 


001403 




983 


003006 


104000 




984 


003010 


000006 




985 


003012 


002013 




986 








98 7 


003014 


020527 


000004 


988 


003020 


0O14U 




989 


003022 


172404 




990 


003024 


174067 


176046 


991 


003030 


004 76/ 


000114 


992 


003034 


001403 




993 


003036 


1.04000 




994 


003040 


COOOO/ 




99 S 


003042 


002013 




996 








99^ 


003044 


020527 


000005 


998 


003050 


001411 





15-MAR-84 

Tl 



16: 



REGISTER BIT TESTS 



SEQ 0024 



.WORD 
.WORD 

{NOW VERIFY THE 
MBT85 

CLR 

TST 

BEQ 

CMP 

BPL 

STD 

JSR 

BEQ 

ERROR 

.WORD 

.WORD 



MBT8A: 



MBT8B: 



MBT8C: 



MBT8D: 



MBT8E: 



CMP 

BEQ 

STD 

JSR 

BEQ 

ERROR 

.WORD 

.WORD 

CMP 

BEQ 

STD 

JSR 

BEQ 

ERROR 

.WORD 

.WORD 

CMP 

BEQ 

STD 

JSR 

BEQ 

ERROR 
.WORD 
.UORD 

CMP 

BFQ 

LDD 

STD 

JSR 

BLQ 

e'RROR 

.WORD 

.WORD 

CMP 
BEQ 



2 j UNIQUE ERROR NUMBER 

FPPERR j ADDRESS OF ERROR MESSAGE 

iFPP AC LOADED INCORRECTLY 
OTHER REGISTERS REMAINED ZERO 



Rl 

R5 

MBT8A 

R5.04 

M8T8A 

ACO.BTRES 

R7.BTTST 

MBT8A 

3 
FPPERR 

R5.&1 

MBT8B 
AC1.BTRES 
R7.BTTST 
MBT8B 

4 
FPPERR 

R5.02 

MBT8C 

AC2.BTRES 

R7.BTTST 

MBT8C 

5 
FPPERR 

R5.03 

MBT8D 
AC3.BTRES 
R7.BTTST 
MBT8U 

6 
FPPERR 

R5.04 

MBT8F 

AC4.AC0 

ACO,BTRES 

R7.BTTST 

MBT8E 

7 
FPPERR 

R5.05 
MBTBK 



{BAD ACO 



jBAD AC1 



I CLEAR TEMPORARY COUNTER 

1 SEE IF RO UNDER TEST 

{BRANCH IF TEST ING RO 

jSEE IF TESTING FPP REGISTER >R4 

I SKIP RO TESTING 

I SAVE AC TEST RESULT 

{VERIFY THAT CONTEMS REMAINED ZERO 

{BRANCH IF EXPECTED RESULT 

{ALL ERRORS TO TRAP TO EMT VECTOR 

s UNIQUE ERROR NUM8ER 

{ADDRESS OF ERROR MESSAGE 

{SEE IF Rl UNDER TEST 

{BRANCH IF Rl UNOER TEST 

{SAVE AC TEST RESULT 

{VERIFY THAT CONTENTS REMAINED ZERO 

{BRANCH IF GOOD 

{ALL ERRORS TO TRAP TO EMT VECTOR 

{UNIQUE ERROR NUMBER 

{ADDRESS OF ERROR MESSAGE 



{SEE IF 
{BRANCH 



TESTING FPP 
IF R2 UNOER 



REGISTER AC2 

TEST 



{BAD AC2 



{BAD AC3 



{BAD AC4 



{SAVE AC TEST RESULT 

{VERIFY .HAT CONTENTS REMAINED ZERO 

{BRANCH IF GOOD 

{ALL ERRORS TO TRAP TO EMT VECTOR 

{UNIQUE ERROR NUMBER 

{ADDRESS OF FRROR MESSAGE 

{SEE IF R3 UNDER TEST 

{BRANCH IF R3 UNOER TEST 

{SAVE AC Ttr .ST RESULT 

{VERIFY "-HAT CONTENTS REMAINED ZERO 

jBRANCh IF GOOD 

;ALL ERRORS TO TRAP TO EMT VECTOR 

{UNIQUE ERROR NUMBER 

•ADDRESS OF ERROR MESSAGE 

{SEE IF R4 UNDER TEST 

{BRANCH IF R4 UNOER TEST 

{MOVE REGISTER CONTENT 

{SAVE AC TEST RESULT 

{VERIFY THAT CONTENTS REMAINED ZERO 

{BRANCH IF GOOD 

{ALL ERRORS TO TRAP \U EMT VECTOR 

{UNIQUE ERROR NUMBER 

{ADDRESS OF ERROR MESSAGE 



sSLt IF RO LiNOER US! 
{BRANCH IF RO UNDER TEST 



Ml 



GLOBAL 


ARFAS 


HACYll 
5-MAR-8* 


KOJ11A. 


MAC 1 


457 






458 




17/546 


459 




177560 


460 




177562 


461 




177564 


462 




177566 


463 




OOOOOO 


464 




000001 


465 




000001 


466 




002000 


467 






468 






469 






470 




001000 


4 71 




OOOOOO 


4 72 






473 






4 74 




OOOOOO 


475 






4 76 






477 






4 78 






4 79 






480 






481 






462 






483 






484 






48", 






486 






487 






488 






489 


OOOOOO 


OOOOOO 


490 


000002 


000737 


491 






492 


00000s 


0C2200 


49* 


000006 


000340 


494 




000174 


495 


0001/4 


OOOOOC 


496 


000176 


OOOOOO 


497 






496 


000200 


000137 


499 






500 






501 






502 






503 




000204 


50*4 




000046 


505 


000046 


036362 


506 




000052 


50/ 


000052 


OOOOOO 


508 




000204 


510 






511 






512 







30AC1052) 15-MAR-84 16:58 PAGE 12 
i 15:51 MEMORY MANAGEMFNi ?r.FiNITIONS 



SEQ 0012 



jMISCELANEOUS DEFINITIONS 



BEVENT 

RCSR- 

RBUF- 

XCSR- 

XBUF- 

ERRTN- 

JTSTNU- 

ERRNUM' 

AUSWR-- 



177546 
177360 
177562 
177564 
177566 
HALT 

1 

2000 



.BEVENT CONTROL REGISTER 



{INITIALIZE ERROR NUMBER COUNTER 
jSWR FOR APT- NO BEVENT TESTING 



;THIS EQUATE DEFINES THE BOTTOM OF THE PROGRAM STACK POINTER 

STBOT- 1000 
.ASECT 
.SBTTL TRAP CATCHER 

,-0 
•ALL UNUSED LOCATIONS OF THE VECTOR AREA CONTAIN 
♦A ".♦2, IOT" SEQUENCE TO CATCH AND PROCESS ILLEGAL 
•TRAPS AND INTERRUPTS THAT MIGHT OCCUR. 

• THE IOT TRAP WHICH IS TAKEN ON THE ILLEGAL TRAP/INT 
♦TRAPS TO THE ISCOPE ROUTINE WHICH (IF THE RETURN PC li 
•LESS THAN 1002) JUMPS TO THE IERROR ROUTINE. 

•THE TERROR ROUTINE WILL REPORT THE ERROR AS FOLLOWS: 

• PC-YYYYYY UNEXPECTED TRAP TO XXX 

• ANO RETURN TO THE PROGRAM AT PC-YYYYYY*? 
•WHERE XXX-LOCATION OF ILLEGAL TRAP 

• YYYYYY-PC AT TIME OF TRAP 

♦NOTE: IF THE PROCESSOR IS NOT AN 11/05 THE PROGRAM 

• CAN BE STARTED AT ADDRESS AS WELL AS ADDRESS 200. 



*40CAT; 


HALT 






BR 


. - 100 




.WORD 


START 




.WORD 


340 




, -174 




DISPREG 


: .WORD 





SU.7EG : 


.WORD 





.SBTTL 


STARTING ADDRES(ES) 




JMP 


aoSTART jjG 


.SBTTL 


ACT11 


HOOKS 



I i HALT 

ijBRANCH TO 177700 £ TIME OUT (NOT ON 

till/05) 

sjVFCTOR TO STARTING ADDRESS 

1 {WITH PRIORITY LEVEL 7 



i SOFTWARE 

{SOFTWARE 



DISPLAY REGISTER 
SWITCH REGISTER 



TO START OF PROGRAM 



•j4t+4#+*+***++ *++*+*+* *++♦♦♦♦♦♦♦+♦♦*♦♦♦*♦♦♦♦♦*♦***+*+*♦****♦*♦** 

{HOOKS REQUIRED BY ACTll 

iSVPC-. 



.SBTTL 



. »46 

*ENDAD 

. -52 

.WORD 

. -iSVPC 

APT PARAMETER BLOCK 



{SAVE PC 

liDSFT 1.0C.46 TO AtWRi SS OF 5ENDAD IN , $bQP 

j t2)SET L0C.52 TO ZERO 
{j RESTORE PC 



^.♦^♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦***4+*4+*+****.v4**»*A**4*4 + *44444444 + 4* + *44 + 

{SCI LOCATIONS c4 AND 44 AS REQUIRED FOR APT 



GLOBAL 


ARF.AS 


MACYH 


30AC1052) 15-MAR-84 16 


N2 

i58 PAGE 26 


KDJUA. 


MAC 1 


5-MAR-84 


15:51 


T2 


TEST UNIQUENESS OF FPP 


1055 


003210 


005004 






CLR 


R* 


1056 


003212 


012702 


001066 




MOV 


4BTEXP.R2 


1057 


003216 


C12703 


001076 




MOV 


0BTRES,R3 


*058 


003222 


012767 


000051 175636 




MOV 


051.BTEXP 


< >9 


003230 


012767 


000052 175632 




MOV 


<>52,BTEXP*2 


* .60 


003236 


012767 


000053 175626 




MOV 


V>53,BTEXPf4 


1061 


003244 


0127o7 


000054 175622 




MOV 


454,BTEXP*6 


1062 


003252 


172467 


175610 




LDD 


BTEXP.ACO 


1063 


003256 


174005 






STD 


AC0,AC5 


1064 


003260 


004567 


000240 




JSR 


R5,SUBT 


1065 


003264 


172467 


175576 




LDD 


BTEXP.ACO 


1066 


003270 


174004 






STD 


AC0.AC4 


1067 


003272 


004567 


000226 




JSR 


R5.SUBT 


1068 


003276 


172767 


175564 




LDD 


BTEXP.AC3 


1069 


003302 


004567 


000216 




JSR 


R5.SUBT 


1070 


003306 


172667 


175554 




LDD 


BTEXP,AC2 


1071 


003312 


004567 


000206 




JSR 


R5.SUBT 


1072 


003316 


172567 


175544 




LDD 


BTEXP.AC1 


10/3 


003322 


004567 


000176 




JSR 


R5.SUBT 


1074 


003326 


172467 


175534 




IDD 


BTEXP.ACO 


1075 














1076 


003332 


174067 


175540 




bi'D 


ACO.BTRES 


1077 


0033 36 


004567 


000246 




JSR 


R5.BFA 


1078 


003342 


001403 






BEQ 


3FAC1 


1079 


003344 


104000 






ERROR 




1080 


003346 


000011 






.WORD 


11 


1081 


003350 


002013 






.WORD 


FPPERR 


1082 














1083 


003352 


004567 


000200 


BFAClt 


JSR 


R5.ADDT 


1084 


003356 


174167 


175514 




STD 


AC1.BTRES 


1085 


003362 


004567 


A 00222 




JSR 


R5.BFA 


1086 


003366 


001403 






BEG 


BEAC2 


1087 


0033 70 


104000 






ERROR 




1088 


003372 


000012 






.WORD 


12 


1089 


003374 


002013 






.WORD 


FPPERR 


1090 














1091 


003376 


0O4567 


000154 


BFAC2: 


JSR 


R5.ADDT 


1092 


003402 


17426? 


175470 




STD 


AC2.BTRES 


1093 


003406 


00456/ 


000176 




JSR 


R5.HFA 


1094 


00341-;? 


001403 






BEQ 


BFAC3 


1095 


003414 


104 000 






ERROR 




109b 


00341b 


000013 






.UORD 


13 


1097 


003420 


002013 






.WORD 


FPPERR 


1098 














1 099 


003422 


00456/ 


000150 


BFAC3: 


JSR 


R5.ADDT 


1100 


00 3426 


1 /4 3b/ 


1 75444 




STD 


AC3.BTRES 


1101 


0034 52 


004fi»i/ 


000152 




JSR 


R5.BFA 


1 i O t ' 


00 54 56 


001403 






BEQ 


BFAC4 


11 Of 


00 5440 


104 000 






ERROR 




1104 


00 5442 


000014 






.WORD 


14 


1105 


00^444 


002013 






.WORD 


FPPERR 


110*3 














110." 


00344b 


0045b/ 


000 1 1 1 4 


BFAC4j 


JSR 


H'i.ADDT 


11 OH 


00 345,' 


1 /, ; /()4 






LDD 


AC4.AC3 


:iv9 


UU 54'., 4 


1 '45b.* 


; M >4i. 




5T() 


AC5.HTRES 


1110 


00 34b 


00456/ 


000124 




JSR 


R5.BFA 



ACCUMULATORS 



SEQ 0026 



, POINT TO TEST DATA 
{POINT TO RECEIVED DATA 
{SETUP EXPECTED DATA 

i 

I 

j MOVE DATA TEMPORARILY 

j PUT DATA INTO TEST REGISTER 

} SUBTRACT TEN FROM EACH EXPECTED DATA 

;MOVE DATA TEMPORARILY 

{MOVE DATA INTO TEST REGISTER 

{SUBTRACT 10 FROM TEST DATA WORDS 

{STORE INTO TEST REGISTER 

{GET NEXT SET OF UNIQUE DATA WORDS 

jSTORE INTO TEST REGISTER 

{GET NEXT SET op- TEST DATAS 

{LOAD TEST REGISTER 

{GET NEXT SET OF TEST WORDS 

{LCAD FINAL TEST RFGISTER 

ALL REGISTER CONTAIN UNIQUE TEST WORDS 

STORE ACO, RESULT 

CHECK RESULT 
{BRANCH IF GOOD 

;Al.L ERRORS TO TRAP TO EMT VECTOR 
; UNIQUE ERROR NUMBER 
{ADDRESS OF ERROR MESSAGE 
{BAD ACO 

UPDATE EXPECTED RESULT 

STORE AC1 RESULT 

CHECK RESULT 

BRANCH IF GOOD 

ALL ERRORS TO TRAP TO EMT VECTOR 

UNIQUE ERROR NUMBER 

ADDRESS OF ERROR MESSAGE 
RESIST AC1 

UPDATE EXPECTED RESULT 

STORE AC2 RESULT 

CHECk RESl/.T 

BRANCH If GOOD 

ALL ERRORS TO TRAP TO FMT VECTOR 

UNIQUE ERROR NUMBER 

ADDRESS OF ERROR MESSAGE 
{BAD AC2 RE SLUT 

UPDATE EXPECTED RESULT 

SAVE TEST RESULT 

CHECK RESULT 

BRANCH IF GOOD 
{ALL ERRORS TO 1RAP TO EMT VECTOR 
; UNIQUE ERROR NUMBER 
: ADDRESS OF ERROR 



{BAD 



{BAD AC3 RESULT 



UPDATE EXPECTED RESULT 
SAVE TEMPORARY 
STORE- AC4 RESULT 
CHECK RESULT 



B2 



GLOBAL 


ARt AS 


MAO 11 


30A( 1052) 


KDJ11A. 


MAC 15-MAR-84 


15*51 


53S 








539 








540 








541 








54 2 








54 5 








54 *1 








545 








546 








54 7 








548 


001000 






549 


001000 


oooooo 




550 


001002 


000000 




551 


0010O4 


oooooo 




552 


0010O6 


oooooo 




557 


001010 


oooooo 




554 


C01012 


oooooo 




555 


001014 


oooooo 




556 


001016 


oooooo 




557 


OCI020 






55* 


001020 


000 




559 


001021 


000 




560 


001022 


oooooo 




561 


001024 


002000 




562 


001026 


oooooo 




565 








564 








565 








56o 








56 7 








568 








569 


001030 






570 








5 71 








57? 








573 








5/4 








575 


001030 


oooooo 




576 


001032 


oooooo 




577 








5 78 








5 79 


001034 


oooooo 




580 


001036 


oooooo 




581 


001040 


oooooo 




582 


001042 


oooooo 




585 


001044 


0000'X) 




584 


001046 


177570 




585 


001050 


177570 




586 


001052 


oooooo 




58 7 








588 


001054 


oooooo 




589 


001056 


oooooo 




590 


001060 


oooooo 




591 


001062 


oooooo 




592 


001064 


oooooo 





15 MAR 84 16:58 PAGE 14 
GLOBAL DATA SECTION 



SEQ 0014 



.SBTTL GLOBAL DATA SECTION 

j THE GLOBAL DATA SECTION CONTAINS DATA THAT ARE USED 
i IN MORE THAN ONE TEST. 

APT MAILBOX-ETABLE 



SBTTL 



i | ****** 

.EVEN 

SMAIL: 

IMSGTYj 

♦FATAL: 

•TESTN: 

♦PASS: 

IDEVCT: 

♦UNIT: 

IMSGADj 

IMSGLG: 

♦ETABLE: 

♦ ENV: 

♦ENVM: 

♦SWREG: 

♦USWR: 

«CPUOP; 

J* 

;♦ 

i* 

i* 

i* 

i* 

IETENO: 

.MEXIT 



********************************** ***.*«* * **************** 



.WORD 

.WORD 
.WORD 
.WORD 
.'WORD 
.WORD 
.WORD 
♦ WORD 

.BYTE 
.BYTE 
.WORD 
■ WORD 
.WORD 



AMSGTY 

AFATAL 

ATESTN 

APASS 

ADEVCT 

AUNIT 

AMSGAD 

AMSQ-G 

AENV 

AENVM 

ASWREG 

AUSWR 

ACPUOP 



jAPT MAILBOX 

iMESSAGE TYPE CODE 

jFATAL ERROR NUMBER 

I TEST NUMBER 

iPASS COUNT 

iDEVICE COWT 

iI/O UNIT NUMBER 

iMESSAGT ADDRESS 

^MESSAGE LENGTH 

lAPT ENVIRONMENT TABLE 

jENVIRONMENT BYTE 

jENVIRONMENT MOOE BITS 

jAPT SWITCH REGISTER 

lUSER SWITCHES 

iCPU TYPE, OPTIONS 
BITS 15-11-CPU TYPE 

11/04-01 ,11/05-02, 11/20-03, 11/40-04. 11/45-05 
ll/70-W ( ,POQ-07,Q-10 
BIT 10-REAL TIMf CLOCK 
BIT 9-FLOATING POINT PROCESSOR 
BIT 8 -MEMORY MANAGEMENT 



l THESE LOCATIONS ARE USED IN MORE THAN ONE TEST TO STORE VECTOR DATA 
jWMEN THE TEST NEEDS TO HAVE AN ERROR CONDITION RESPOND DIFFERENTLY 
jFROM 1HE DEFAULT RESPONCE. 
SLOCOO: .WORD 
SL0CO1: .WORD 



593 



j THESE L 

EXPDAT; 

RECOATj 

COUNT; 

FLAG: 

ERRCNT; 

SWR; 

DISPLAY : 

IF.RFLG: 

i THESE L 

DCOLf^T: 

ALLCTR; 

L OOP IN: 

SAVSP1 : 

SAVSP2{ 



OCATIONS ARE USED IN 
.WORD 









DSWR 

DDISP 



OCATIONS ARE USED BY 
.WORD 











.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 



.WORD 

.WORD 
.WORD 
.WORD 



MORE THAN ONE TEST TO STORE WORKING DATA. 

jSTORES EXPECTED (GOOO) DATA FOR COMPARISONS 

j STORES HECIEVED DATA TO BE VERIFIED 

I ERROR INDICATOR fOR Fl DATING POINT TESTS 

lUSED TO STORE "FLAG" CONDITIONS 

j STORAGE FOR ERROR COUNT 

iSTORAGE FOR SWITCH REGISTER ADDRESS 

j STORAGE FOR DISPl AY RFGISTER ADDRESS 

t ERROR FLAG 

MORE THAN ONE TEST AS LOOP COUNTERS 



iSTORAGE FQR UNEXPECTED TRAP DATA 



J 



GLOBAl, AR^AS 
KDJllA.MAC 



imwm^ l5 - HA ^t mA»«i£ ; 



594 
59S 
396 
59 7 
598 
599 

too 

601 
60,? 
603 
604 

oOb 
606 
60? 
608 
609 



001066 
001076 
001106 
001116 
001126 



001136 
001136 



000004 
0000O4 
0C00O1 
000004 
000004 



BTEXP: 


,BL<W 


4 


8TRES: 


.BIKW 


4 


RECFEC: 


,BL<W 


4 


RECST: 


.BLKW 


4 


RECDSTj 


.BLKW 


4 



C2 



SEQ 0015 



000020 



j !!! ! !THIS 
TSTLOC; 

♦ BLKW 



iSTORES EXPONENT DURING BIT TESTS 
jSTORES RECIEVED OATA FOR BIT TESTS 
iRECIEVED FLOATING POINT EXCEPTION CODE 
jRECIEVED FLOATING POINT STATUS 
jDESTINATION ADDRESS FOR FLOATING POINT TESTS 



IS IT. THE PROGRAM TEST LOCATION AND WRITE BUFFER!!!!!!!!!!!!!!!!!! 

20 



D2 



GLOBAL 


ARhAS 


MAO 11 


30AU052) 15-MAR-84 16 


:58 PAGfe 16 




KDJL1A. 


MAC 15 -MAR -84 


15:51 APT MAlLBOX-ETABLt 




610 


001176 


123456 


TAB1: 


.WORD 


123456 




611 


001200 


000000 




.WORD 


OOOOOO 




612 


001202 


000000 




.WORD 







61? 


001204 


000001 




.WORD 


1 




614 


001206 


055555 


TAB2: 


.WORD 


055555 




615 


001210 


177777 




.WORD 


177777 




616 


001212 


145671 




.WORD 


145671 




617 


001214 


10OOO0 




.WORD 


100000 




618 


001216 


003000 


TAB3: 


.WORD 


003000 




619 


001220 


123456 




.WORD 


123456 




620 


001222 


000000 




.WORD 







t>21 


001224 


000000 




.WORD 







622 


001226 


055555 


TAB4: 


.WORD 


55555 




623 


001230 


177777 




.WORD 


-1 




624 


001232 


000000 




.WORD 







625 


0012*4 


000000 




.WORD 







' c i 


001236 


043243 


TAB5: 


.WORD 


43243 




<S?7 


001240 


000000 




.WORD 







628 


001242 


000000 




.WORD 







629 


001244 


000000 




.WORD 







630 


001246 


162400 


TAB5A: 


.WORD 


162400 




631 


001250 


000000 




.WORD 







632 


001252 


000000 




.WORD 







6*3 


001254 


000000 




.WORD 







6;&4 


001256 


000000 


TAB6: 


.WORD 







6 55 


001260 


oooooo 




.WORD 







656 


001262 


000000 




.WORD 







637 


001264 


oooooo 




.WORD 







638 


001266 


04 7050 


TAB6A: 


.WORD 


47050 




639 


001270 


01 0000 




.UORD 


10000 




640 


001272 


oooooo 




.WORD 







641 


001274 


oooooo 




.WORD 







642 


001276 


000200 


TAB7: 


.WORD 


200 




643 


001300 


oooooo 




.WORD 







644 


001302 


oooooo 




.WORD 







645 


001304 


oooooo 




.WORD 







646 


001306 


000200 


TAB8: 


.WORD 


200 




64 7 


001310 


oooooo 




.WORD 







648 


001312 


oooooo 




.WORD 







649 


0C1314 


000001 




.WORD 


1 




650 


001316 


000400 


OOOOOO 000000 TAB9: 


.WORD 


400,0>0.0 




651 


001324 


oooooo 










652 


001326 


030000 


TAB 10 j 


.WORD 


30000 




653 


001330 


0030OO 




.WORD 


3000 




654 


001332 


OOOOOO 




.WORD 







655 


001334 


OOOOOO 




.WORD 







656 


001336 


016400 


TABU: 


.WORD 


16400 




657 


001340 


OOOOOO 




.WORD 







658 


001342 


OOOOOO 




.WORD 







659 


001344 


OOOOOO 




.WORD 







660 


001546 


030000 


003000 000002 TAB11A; 


.WORD 


30000,3000.2 


.0 


661 


001354 


oooooo 










66? 


001356 


01.6100 


OOOOOO OOOOOO TAB 12: 


.WORD 


16100,0.0,1 




663 


001364 


000001 










664 


001166 


016200 


TAB13: 


.WORD 


16200 




665 


001370 


oooooo 




.WORD 








SfcQ 0016 



GLOBAL AREAS MACU1 30AC1052) 15-MAR-84 16?58 PAGE 17 

KOJUA.MAC 15-MAR-64 15:51 APT MAILBOX-ETABLE 



E^ 



SEQ 0017 



666 


001372 


000000 








.WORD 





66 7 


001374 


000001 








. UCRO 


1 


668 


001376 


030000 


003000 


OOOOOO 


TAB13E 


1: .WORD 


30000.3000,0,1' 


669 


001404 


140000 












670 


001406 


030000 






TAB 14: 


.WORD 


30000 


671 


001410 


000000 








.WORD 





672 


001412 


000000 








.WORD 





673 


001414 


000000 








.WORD 





674 


001416 


024700 






TAB15; 


.WORD 


24700 


675 


001420 


000000 








.WORD 





676 


001422 


000000 








.WORD 





677 


001424 


000000 








.WORD 





678 


001426 


025000 






TAB16; 


.WORD 


25000 


679 


001430 


175363 








.WORD 


175363 


680 


001432 


123456 








.WORD 


123456 


681 


001434 


123456 








.WORD 


123456 


682 


001436 


030000 






TAB17: 


.WORD 


30000 


683 


001440 


007020 








.WORD 


7020 


684 


001442 


000000 


OOOOOO 






.WORD 


0.0 


685 


001446 


023456 






TAB185 


.WORD 


23456 


686 


001450 


000000 








.WORD 





68/ 


001452 


OOOOOO 








.WORD 





688 


001454 


000001 








.WORD 


1 


689 


001456 


100200 


OOOOOO 


OOOOOO 


TAG21 


.WORD 


100200,0,0,0 


690 


001464 


OOOOOO 












691 


001466 


100400 


OOOOOO 


OOOOOO 


TAB22 


.WORD 


100400,0.0,0 


692 


001474 


OOOOOO 












693 


001476 


000200 


OOOOOO 


OOOOOO 


TAB23 


.WORD 


200.0,0,1 


694 


001504 


000001 












695 


001506 


062400 


OOOOOO 


OOOOOO 


TAB 24 


.WORD 


62400,0,0.0 


696 


001514 


OOOOOO 












697 


001516 


001100 


OOOOOO 


OOOOOO 


TAB25 


.WORD 


1100,0,0,0 


698 


001524 


OOOOOO 












699 


001526 


100600 


OOOOOO 


OOOOOO 


TAB26 


.WORD 


100600,0,0,0 


700 


001534 


OOOOOO 












701 


001536 


0010OO 


OOOOOO 


OOOOOO 


TAB27 


.WORD 


1000,0,0,0 


702 


001544 


OOOOOO 












703 


001546 


000600 


OOOOOO 


OOOOOO 


TAB28 


.WORD 


600 ,0,0,0 


704 


001554 


OOOOOO 












705 


001556 


010100 


OOOOOO 


OOOOOO 


TAB29 


.WORD 


10100,0,0,0 


706 


001564 


OOOOOO 












707 


001566 


010100 


OOOOOO 


002000 


TAB29/ 


*; .WORD 


10100.0,2000,0 


708 


001574 


OOOOOO 












709 










i 






710 


001576 


000500 


OOOOOO 


OOOOOO 


TAB30 


.WORD 


500,0,0,0 


711 


001604 


OOOOOO 












712 


001606 


10O400 


OOOOOO 


OOOOOO 


TAB31 


.WORD 


100400.0.0,0 


713 


001614 


OOOOOO 












714 


001616 


016000 


OOOOOO 


OOOOOO 


TAB 32 


.WORD 


16000,0,0,0 


715 


001624 


OOOOOO 












716 


001626 


011600 


OOOOOO 


OOOOOO 


TAB.53 


.WORD 


11600,0,0,0 


717 


001634 


OOOOOO 












718 


001636 


000640 


OOOOOO 


OOOOOO 


TAB 34 


.WORD 


640.0,0,0 


719 


001644 


OOOOOO 












V20 


001646 


07 7600 


OOOOOO 


OOOOOO 


TAB40 


. .WORD 


77600,0,0,0 


721 


00X654 


OOOOOO 













F2 



GLOOAi ARIAS MACU1 30AC1052) 
KDJ11A.MAC 15 -MAR -84 15:51 

722 001656 100200 000000 

723 001664 000001 

724 001666 000340 000000 

725 001674 000000 

726 001676 000077 177777 

727 001704 177776 

728 001706 000577 177777 

729 001714 177777 

730 001716 000577 177777 

731 001724 000000 

732 001726 ! 73737 124242 

733 001734 012346 

734 001736 OOOOOO 000000 

735 001744 012346 

736 001746 173737 124242 
73.* 001754 OOOOOO 

738 001756 000600 OOOOOO OOOOOO TAB49; 

739 001764 OOOOOO 



15-MAR-84 16:58 PAGt 18 
APT MAILBOX -FTABLF 



5EQ 0016 



OOOOOO 


TAB41- 


.WORD 


OOOOOO 


TAB42 


,UORD 


177777 


TAB43 


.WORD 


177777 


TAB45 


.WORD 


OOOOOO 


TAB46 


.WORD 


052525 


TAB47 


.WORD 


052525 


TAB47A: .WORD 


OOOOOO 


TAB48 


.WORD 



.WORD 



100200, 0,0,1 

340,0,0,0 

77,177777,177777,177776 

577.-1, -l.-l 

577,-1,0.0 

173737 , 124242 , 052525 ,12346 

0,0,052525,12346 

173737,124242,0,0 

600,0.0,0 



G2 



GLOBAl ARIAS 
KDJUA.MAC 



740 
741 

74.? 

743 
744 
745 
746 
747 
746 
749 
750 
751 

753 
754 



MACU1 3OAC1052) 
15-MAR-U4 15:51 



15-MAR-84 16:56 

GLOBAL tEXT 



SECTION 



SEQ 0019 



755 
756 
757 
758 
759 
760 
761 
76? 
763 
764 
765 
766 
767 
768 



001766 
001774 
002002 
002010 
002013 
002020 
002026 
002034 
002042 
002046 
002054 
002062 
002070 
0020 76 
0020// 
002104 



005015 

020105 

046505 

051117 

015 

051117 

047111 

020120 

047111 

005015 

020122 

005015 

020122 

000 

015 

000 

002106 



040503 
054523 
042440 
000 
042412 
042040 
020107 
C42524 
000107 
051105 
020043 
051105 
041520 



044103 
052123 
051122 

051122 
051125 
050106 
052123 

04 7522 
000075 
04 7522 
036440 



.SBTTL GLOBAL TEXT SECTION 



i ♦• 



THE GLOBAL TEXT SF.CTTON CONTAINS FORMAT STATEMENTS, 
MESSAGES, AND ASCII INFORMATION THAT ARE USED IN 
MORE THAN ONE TEST. 
I - ~ 



FORMAT STATEMENTS USED IN PRINT CALLS 



i 



ERRMSGs 2 .ASCIZ <CR><LF>/CACHE SYSTEM ERROR/ 



FPPERR; .ASCIZ <CR><LF>/ERROR DURING FPP TESTING/ 



MRR1: 
ERR2: 



020012 020040 $CRLF : 



♦ASCIZ 
.ASCIZ 

.ASCIZ 
.EVEN 



<CR><LF>/ERR0R * ■/ 
<CRxl.F>/F.RROR PC »/ 



<CR»<LF>/ 



/ 



H2 

GLOBAi ARfAS MACU1 30 A v' 1052) 15-MAR-84 16:58 PAGE ?0 SEQ 0020 

KDJUA.MAC 15 -MAR -84 15;51 GLOBAL ERROR REPORT SECTION 

V6S .SBTTL GLOBAL ERROR REPOF:T SECTION 

770 

771 .♦♦ 

??Z l THE GLOBAL ERROR REPORT SECTION CONTAINS MESSAGE PRINTING ARbAS 

775 j USED BY MORE THAN TEST TO OUTPUT ADDITIONAL £RRQR INFORMATION. 

7 74 j - - 

7 7b 



I 






GLOBAi. 


AREAS 


MACU1 


30AU052) 


KDJ11A. 


MAC 15-MAR-84 


15:51 


7/6 








7 77 








7 78 








7 79 








780 








781 








782 








783 


002106 


012600 




784 


002110 


012605 




785 


002112 


104000 




786 


002114 


000001 




78 7 


002116 


002013 




788 


002120 


000110 




7 8 1 








^90 








791 








792 


002122 


000000 




793 


002124 


000207 




7 94 


002126 


000207 




796 








79/ 








798 








799 








800 








801 








802 








803 








804 








80S 








806 








80 7 








808 








809 








810 








811 








81? 








813 








814 








815 


002130 


010446 




816 


002132 


010146 




817 


002134 


012767 


000003 


818 


002142 


000167 


000012 


81 u 








820 


002146 


010446 




821 


002150 


010146 




822 


002152 


012767 


000005 


823 


002160 


00536 7 


176654 


824 


002164 


001402 




825 


002166 


022421 




826 


002170 


01 * -* 




82 7 


002172 


ul26... 




826 


0021/4 


012604 




82'* 


QQ21V6 


00020? 




530 
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GLOBAL SUBROUTINES SECTION 



SEQ O021 



176676 



176660 



.SBTTL GLOBAL SUBROUTINES SECTION 



j THE GLOBAL SUBROUTINES SECTION CONTAINS THE SUBROUTINES 
i THAT ARE USED IN MORE THAN ONE TEST, 



;FPP COMMON SUBROUTINES 



WLDTRP; 


MOV 


(SP)f.RO 




MOV 


CSP)*.R5 




ERROR 






.WORD 


1 




.WORD 


FPfERR 




JMP 


(RO) 


TRPFLG: 


.WORD 





ERRFP: 


RTS 


R7 


ERR: 


RTS 


R7 



;SAVE 



j SAVE 



PC 

STATUS AND RESTORE STmCK 
{ALL ERRORS TO TRAP TO EMT VECTOR 
j UNIQUE ERROR NUMBER 
{ADDRESS OF ERROR MESSAGE 
{GO BACK INLINE 



i 



; SUBROUTINE DATA VERFICATION 

s 



CALLED BY 
INPUT: 



JSR 

(R4) 
CRD 



R7.DATVER 



■EXPECTED 
-RECEIVED 



DATA 
DATA 



;THIS ROUTINE VERIFIES THAT THE 4 CONSECTIVE WORDS STARTING WITH ( R4 ) ARE 
I EQUAL TO THE FOUR WORDS ADDRESSED BY CR1). THE CONTENTS OF R4 , AND Rl ARE NOT 
{DISTURBED. 
LOCATION "COUNT" . IF NOT LQijAL TO SIGNIFIES DATA ERROR 
IF THE STATUS IS FLOATING MODE, THE LAST TWO BYTES OF RECEIEVED 
ARE SIMPLY CHECKED FOR ZEROS 



DATVFR: MOV 

MOV 
MOV 
JMP 



DATVER 



DAT1 



2*; 



MOV 
MOV 
MOV 
DEC 
3EQ 
CMP 
BFU 
MOV 
MOV 
RTS 



R4 ( CSP) 
Rl. -CSP) 

03, COUNT 
DAT1 

R4, (SP) 
Rl. (SP) 

05, COUNT 

COUNT 

2* 

(R4).,(Rl)f 

DAT1 

( SP)t,Wl 

(SP)*iR4 

R7 



{SAVE R4 

tSAVE Rl 
{SET UP ITERATION COUNT 



{SAVE R4 
{SAVE Rl 
{SET UP ITERATION COUNT 

{BRANCH IF DONE 



jRESTORt Rl 

j Rfc STORE R4 

{GO BACK TO CALL. TNG RQUUNE 

I IK DATA ERROR, COUNT NE 



J2 
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KDJUA.MAC 15-MAR-84 15:51 GLOBAL SUBROUTINES SECTION 



SEQ 0022 



831 
632 
833 
834 
835 
836 
837 
838 
8:>9 
840 
841 
84? 
84 3 
844 
845 
846 
847 
848 
849 
850 
851 
852 
853 
854 
855 
856 
857 
858 
859 
860 
861 
862 
863 
864 
865 
866 
86 7 
868 
869 
8/0 
8/1 
872 
873 
8/4 
8 75 
8 76 

nn 

8/8 
8/9 
880 
881 
882 
885 
884 
885 
8tf6 



002200 
002200 

002206 

002212 
002220 
002226 
002234 
002242 
002246 
002254 



002260 
002?64 
002272 
002300 
002306 
002314 

002316 

002320 
002324 
002326 
002334 
002342 



002346 
002352 
002360 
002362 
002370 
002370 
002376 
C'J2404 
002410 
002414 



0024*2 



012737 
012706 

012737 

012737 
012737 
012737 
005067 
016767 
105067 

013746 
012737 
0.12767 
012767 
022777 
001012 

000403 
012716 
000002 
01276/ 
01276/ 
0126S7 



00506/ 
132767 
001403 
012767 

012737 
012737 
005037 
00504.7 
0127^7 



000014 177746 



001000 

040046 
000340 
037530 
000340 
176540 
034056 
176572 



000004 
002320 

177570 
177570 
177777 



002326 

000176 
000174 
000004 



176^34 
000200 



040046 
0O0340 

177766 
1761/0 
000014 



000030 
000032 
000034 
000036 

034046 



000004 
176546 
176542 
176532 



176512 
176506 



176441 



001022 176456 



000020 
000022 



177746 



START: 

MOV 

.SBTTL INIT 
MOV 

{{INITIALIZE 
MOV 
MOV 
MOV 
MOV 
CLR 
MOV 
CLRB 

I {SIZE FOR A 

t i EQUAL TO A 
MOV 
MOV 
MOV 
MOV 
CMP 
BNE 



I SET CACHE TO FORCE MloS 



A 



THE 



POINTER 



014.8OCCR 
IALIZE THE COMMON TAGS 

♦STACK. SP m SETUP 
FEW VECTORS 

TERROR, SOEMTVEC uEMT VECTOR FOR ERROR ROUTINE 
*340,Q*EMTVEC*2 i {LEVEL 7 

*$TRAP,8*TRAPVEC i j TRAP VECTOR FOR TRAP CALLS 
0340,QOTRAPVEC*2|LEVEL 7 
$PASS ;jCLEAR THE PASS COUNT 

$EN0CT,$EOPCT {{SETUP END -OF -PROGRAM COUNTER 
$ERFLG {{CLEAR THE ERROR FLAG 

HARDWARE SWITCH REGISTER, IF NOT F0Uf4O OR IT IS 
"•1". SETUP FOR A SOFTWARE SWITCH REGISTER. 



B*ERRVEC,-(SP) 

*64*,&4ERRVEC 

ODSUR.SWR 

ODDISP, DISPLAY 

0-l,aSWR 

66$ 



64$ 
65$ 
66$ 
.MACRO 



$ARG1 
,ENDM 



BR 

MOV 
RTI 
MOV 
MOV 
MOV 



65$ 
$65$ 



(SP) 



{ {SAVE ERROR VECTOR 

j {SET UP ERROR VECTOR 

{{SETUP FOR A HARDWARE SWICH REGISTER 

jjAND A HARDWARE DISPLAY REGISTER 

{{TRY TO REFERENCE HARDWARE SWR 

, {BRANCH IF NO TIMEOUT TRAP OCCURRED 

{{AND THE HARDWARE SWR IS NOT » -1 

{ {BRANCH IF NO TIMEOUT 

{{SET UP FOR TRAP RETURN 



4SWREG.SWR {{POINT TO SOFTWARE SWR 

*DISPREG, DISPLAY 

(SP)*,8#ERRVEC {{RESTORE ERROR VECTOR 



7$ARG1 



$$SETMAIL 

CLR $PASS i 

BITB *APTSIZE,$ENVM j 

BEQ $ARG1 i 

MOV $$SWREG,SWR s 



67$ 



RESTART 



$$SFTMA1L 

CLR $PASS j 

BI T B OAPTSIZE.IENVM j 

BEQ 67$ ; 

MOV 4$SWREG,SUR 

MOV TERROR, S0IOTVEC 

MOV O340.Q*I0TVEC»2 

CLR W0177 766 

CLR $TESTN 

MOV *14,Q0CCR 



{CLEAR PASS COUNT 
{TEST USER SIZE UNDER APT 
{YES. USE NON-APT SWITCH 
jNO, USE APT SWITCH REGISTER 



{CLEAR PASS COUNT 

{TEST USER SIZE UNDER APT 

{YES, USE NON-APT SWITCH 
jNO.USE APT SWITCH REGISTER 

j {SET UP IOT VECTORS 
I f TO GO TO ERROR ROUTINE 
{CLEAR CPU ERROR REGISTER 
{RESET $TESTN TO ZERO 
{SET CACHE TO FORCE MISS 



.SBTTL FLOATING POINT TESTS 

I BEGIN FLOATING POINT TFSTING 

MB T 1 : 

•{♦**+**+** +**********++*4* ++**++++* it*************************** 

{♦TEST 1 FPP REGISTER BIT TESTS 

j J ++ + + + + * + ** + *** + 4.**** + + ** + + * + + + * + + + + *** + + + + + + + **. + + **** *** + * + + + +.* 



I<2 



GLOBAL AREAS 
KDJ11A.MAC 



887 
888 
889 
890 
891 
892 
895 
894 
895 
896 
697 
898 
899 
900 
901 
902 
903 
904 
905 
906 
907 
908 
909 
910 
911 
912 
913 
914 
915 
916 
917 
918 
919 
920 
921 



MACY11 30A(105'2) 
15-MAR-84 15:51 



15-MAR-84 

Tl 



16 j 58 
FPP 



PA( 
REC 



IE 23 

ilSTER 



BIT TESTS 



SEQ 0023 



923 
924 
925 
926 

92 7 
928 
929 
930 
931 
932 
935 
934 
935 
936 

93 7 
938 
939 
940 

94 1 
942 



002422 
002422 
002426 
0024 30 
002432 
002436 
002442 
002444 
002446 
002450 
002452 
002454 
002456 
002460 
002462 

002464 
002466 
0024 72 
0024 76 
002500 
002504 
002510 
002514 
002520 
002524 
002530 
002534 
002540 
002544 
002550 
002554 
002560 
002564 
002566 
002570 
002574 
002600 
002602 
002604 
002610 
002616 
002620 
002626 
002630 
002636 
002640 
002646 
002650 
002650 



005267 
170011 
005005 
012702 
012703 
170400 
174012 
005004 
170400 
170401 
170402 
170403 
1/0404 
170405 

010501 
070127 
062701 
000111 
172467 
174067 
0C0167 
172567 
174167 
000167 
172667 
174267 
000167 
172767 
174367 
000167 
172467 
174004 
172404 
000167 
172467 
174005 
172405 
000167 
026767 
001014 
026767 
001010 
026767 
001004 
026767 
001403 

104000 



176356 



001066 
001076 



000014 
002500 

176362 
176366 
000074 
176346 
176352 
000060 
176332 
176336 
000044 
176316 
176322 
000030 
176302 



177710 
176266 



17 7674 
176252 

176244 

176236 

176230 



{R5-FPP POINTER 
{Rl-TEMPORARY COUNTER 
{R2-P0INTER TO EXPECTED DATA 
{R3-P0INTER TO RECEIVED DATA 

;R4-QDD/EVEN COUNTER 

i | * + ** + ***.* + ****** + *** + ****** + ***+** + *****»*.*** + *************** + + 

TST1: 

INC iTESTN {INCREMENT TEST NUMBER 



MBTP: 

MBT2A: 

BTGO: 



MACO: 
MACOA 

MAC1: 
MAC2; 
MAC 3 j 
MAC4: 

MACS; 

176260 MACE j 
176252 

176244 
176236 

BTLR: 



SETD 

CLR 

MOV 

MOV 

CLRD 

STD 

CLR 

CLRD 

CLRD 

CLRD 

CLRD 

CLRD 

CLRD 

MOV 
MU. 
ADD 
JMP 

LDD 

sro 

JMP 
LDD 
STD 

JMP 
LDD 
STD 
JMP 
LDD 
STD 
JMP 
LDD 
STD 
LDD 
JMP 
LDD 
STD 
LDD 
JMP 
CMP 
BNE 
CMP 
BNE 
CMP 
BNE 
CMP 
BFQ 

ERROR 



R5 

*BTEXP.R2 

0BTRES.R3 

ACO 

AC0.CR2) 

R4 

ACO 

AC1 

AC2 

AC3 

AC4 

AC5 

R5.R1 

014, Rl 

OttACO.Rl 

(Rl) 

BTEXP.ACO 

ACO.BTRES 

MACE 

BTEXP.AC1 

ACl.BTRtS 

MACE 

BTEXP.AC2 

AC2.BTRES 

MACE 

BTEXF.AC3 

AC3.BTRES 

MACE 

BTEXP.ACO 

AC0.AC4 

AC4.AC0 

MACOA 

BTEXP.ACO 

AC0.AC5 

ACS -, ACO 

MACOA 

BTEXP.BTRES 

BTER 

BTEXP»2,BTRES*2 

BTER 

BTEXP*4,STRES*4 

BTER 

BTEXPf6,BTRES*6 

MBT8 



{SETUP FPP ACC POINTER 
{POINT TO TEST DATA 
{POINT TO RECEIVED DATA 
{SETUP FPP REGISTER VALUES 
{CLEAR EXPECTED VALUE 

{SETUP FPP REGISTER VALUES 



{GET FPP AC NUMBER INTO Rl 
{ALLOW 10 LOCATIONS FOR OPERATION 
{SETUP JMP LOCATION 



{LOAD 

{SAVE 

{GET 

{LOAD 

{SAVE 

{GET 

{LOAD 

{SAVE 

{GET 

{LOAD 

{SAVE 

{GET 



TEST DATA INTO TEST REGISTER 

TEST RESULT 
OUT 

TEST DATA INTO TEST REGISTER 

TEST RESULT 
OUT 

TEST DATA INTO TEST REGISTER 

TEST RESULT 
OUT 

TEST DATA INTO TEST REGISTER 

TEST RESULT 
OUT 



TEST 



DATA INTO 
RESULT 



{LOAD 

{SAVE TEST 

{GET OUT 

{LOAD TEST DATA INTO 

{LOAD TEST REGISTER 

{STORE RESULT INTO XFER 

{GET OUT 



TEST REGISTER 



TEST XFER REGISTER 
FPP REGISTER -. 



{BRANCH IF REGISTER ERROR 



{GOOD RESULT 

{ALL ERRORS TO TRAP TO EMT VECTOR 



L2 



GLOBAL 


ARIAS 


MACY11 
5-MAR-84 


30AC1052) 
15:51 


15-MAR-84 16 


FPP REGISTER BIT TESTS 


KDJ11A. 


MAC 1 


Tl 


94 5 


002652 


000002 






.WORD 


2 


944 
945 


002654 


002013 






.WORD 


FPPERR 


7*1 -.l 

946 








{NOW VERIFY THE 


OTHER REGISTER 


94 7 


002656 






MBTSt 






948 


002656 


005001 






CLR 


Rl 


949 


002660 


005705 






TST 


R5 


950 


002662 


001413 






BEQ 


MBT8A 


951 


002664 


020527 


000004 




CMP 


R5.04 


952 


002670 


100010 






BPL 


M8T8A 


95 3 


002672 


174067 


176200 




STD 


ACO.BTRES 


954 


002676 


004767 


000246 




JSR 


R7.BTTST 


955 


002702 


001403 






BEQ 


MBT6A 


956 


002704 


104000 






ERROR 




95 7 


0C2 7C6 


000003 






.WORD 


3 


958 
959 
960 


002710 


002013 






.WORD 


FPPERR 


00271? 


020527 


000001 


M8T8A: 


CMP 


R5.n 


961 


002716 


001410 






BEQ 


MBT8B 


962 


002720 


174167 


176152 




STD 


AC1.BTRES 


963 


002724 


004767 


000220 




JSR 


R7.BTTST 


964 


002730 


001403 






BEQ 


MBT8B 


965 


002732 


104000 






ERROR 




966 


002734 


000004 






.WORD 


4 


967 


002736 


002013 






.WORD 


FPPERR 


968 














969 


002740 


020527 


000002 


MBT8B: 


CMP 


R5.42 


970 


002744 


001410 






BEQ 


M8T8C 


971 


002746 


174267 


176124 




STD 


AC2.BTRES 


972 


002752 


004 76 7 


000172 




JSR 


R7.BTTST 


973 


002756 


001403 






BEQ 


M8T8C 


974 


002760 


104000 






ERROR 




975 


002/62 


000005 






.WORD 


5 


976 


002764 


002013 






.WORD 


FPPERR 


977 














978 


002766 


020527 


000003 


MBT8C: 


CMP 


R5.03 


979 


002772 


001410 






BEQ 


MBT8D 


980 


002774 


174 367 


176076 




STD 


AC3.BTRES 


981 


003000 


004 767 


000144 




JSR 


R7.BTTST 


982 


003004 


001403 






BEQ 


M0T8D 


983 


003006 


104000 






ERROR 




984 


003010 


000006 






.WORD 


6 


985 


003012 


002013 






.WORD 


FPPERR 


986 














98 7 


003014 


020527 


000004 


MBT8U: 


CMP 


R5.04 


988 


003020 


001411 






BEQ 


MBT8E 


989 


003022 


172404 






LDD 


AC4.AC0 


990 


003024 


17406 7 


176046 




STD 


ACO.BTRFS 


991 


00 5030 


004 76/ 


000114 




JSR 


R7,BTTST 


992 


003054 


001403 






BEQ 


MBT8E 


993 


00 3036 


104000 






t-'RROR 




994 


003040 


C0000 7 






.WORD 


7 


99 S 
l J l J6 


003042 


002013 






.WORD 


FPPERR 


99; 


003044 


020527 


000005 


MBT8E: 


LMP 


R5.05 


998 


003050 


001411 






BEQ 


MBT8F 



SEQ 0024 



j UNIQUE ERROR NUMBER 

j ADDRESS OF ERROR MESSAGE 

1 FPP AC LOADED INCORRECTLY 

REMAINED ZERO 

I CLEAR TEMPORARY COUNTER 

1 SEE IF RO UNOER TEST 

{BRANCH IF TEST ING RO 

{SEE IF TESTING FPP REGISTER >R4 

,SKIP RO TESTING 

,SAVE AC TEST RESULT 

{VERIFY THAT CONTEN T S REMAINED ZERO 

{BRANCH IF EXPECTED RESULT 

{ALL ERRORS TO TRAP TO EMT VECTOR 

{UNIQUE ERROR NUHBER 

{ADDRESS OF ERROR MESSAGE 



{BAD ACO 



{BAD AC1 



{SEE IF Rl UNDER TEST 

{BRANCH IF Rl UNOER TEST 

jSAVE AC TEST RESULT 

{VERIFY THAT CONTENTS REMAINED ZERO 

{BRANCH IF GOOD 

{ALL ERRORS TO TRAP TO EMT VECTOR 

{UNIQUE ERROR NUMBER 

{ADDRESS OF ERROR MESSAGE 



{SEE IF 
{BRANCH 



TESTING FPP 
IF R2 UNOER 



REGISTER AC2 
TEST 



{BAD AC2 



{BAD AC3 



{BAD AC4 



{SAVE AC TEST RESULT 

l VERIFY THAT CONTENTS REMAINED ZERO 

{BRANCH IF GOOD 

{ALL ERRORS TO TRAP TO EMT VECTOR 

{UNIQUE ERROR NUMBER 

{ADDRESS OF ERROR MESSAGE 

{SEE IF R3 UNDER TEST 

{BRANCH IF R3 UNOER TEST 

{SAVE AC TI tST RESULT 

{VERIFY '.HAT CONTENTS REMAINED ZERO 

{BRANCH IF GOOO 

;ALL ERRORS TO TRAP TO EMT VECTOR 

{UNIQUE ERROR NUMBER 

•ADDRESS OF ERROR MESSAGE 

{SEE IF R4 UNOER TEST 

{BRANCH IF R4 UNOER U ST 

{MOVE REGISTER CONTENT 

{SAVE AC TEST RESULT 

{VERIFY THAT CONTENTS REMAINED /FRO 

{BRANCH IF GOOD 

{ALL ERRORS TO TRAP TU EMT VECTOR 

1 UNIQUE ERROR NUMBER 

{ADDRESS OF ERROR MESSAGE 



j SEE IF RO UNDER TEST 
{BRANCH IF RO UNDER TEST 



Gl.OBAi ARfAS 
KDJ11A.MAC 



MACY11 30AC1052) 
15 -MAR 84 15:51 



15-MAR-84 
Tl 



M? 

16:58 PAGF PS 

F*P REGISTER BIT TESTS 



SEQ 0025 



999 

1000 

1001 

1002 

1003 

1004 

1005 

1006 

1007 

1006 

1000 

1010 

1011 

101? 

1013 

1014 

1015 

1016 

1017 

1018 

1019 

1020 

1021 

1022 

1023 

1024 

1025 

1026 

102V 

1028 

1029 

1030 

1031 

1032 

1033 

1034 

1035 

1036 

1037 

1038 

1039 

104C 

1041 

1042 

1043 

1044 

1045 

1046 

104 7 

1048 

1049 

10SO 

1051 

10 V 

1053 

1054 



003052 
003054 
003060 
003064 
003066 
003070 
003072 

003074 
003076 

003100 
003104 
003106 
003110 
003112 
003116 
003122 
003126 
003130 

003134 
003136 
003142 
003144 



003150 
003154 
003156 
003162 
003164 
003170 
003172 
003176 



003200 



003200 



003200 
003200 



00 5. ''04 
003206 



172405 
174067 
004767 
001403 
104000 
000010 
002013 

005204 

000241 
042704 
001401 
000261 
006112 
006162 
006162 
006162 
103402 
000167 

005205 
020527 
100016 
000167 



005 76 7 
001010 
005767 
001005 
005767 
001002 
OC5767 
000207 



176016 
000064 



177776 



000002 
000004 
000006 

177314 



000006 
177272 

175722 
175716 
175712 
175706 



005267 175600 



1 /0011 
005000 



LDD 
STO 

JSR 

BEQ 

ERROR 

.WORD 

.WORD 



MBT8F: 



INC 
CLC 
BIC 
BEQ 
SEC 
MBT3FG; ROL 
ROL 
ROL 
ROL 
BCS 
JMP 



MBT8I: 



INC 
CMP 
BPL 
JMP 



BTTST: 



TST 
BNE 
TS1 
BNE 
TST 
BNE 
TST 
BTTSTE: RTS 



MBTE: 



AC5>AC0 
ACO t BTRES 
R7, BTTST 
MBT8F 

10 
FPPERR 

R4 

4177776, R4 
MBT8FG 

(R2) 

2(R2) 
4CR2) 
6(R2) 
M6T8I 
BTGO 

R5 
R5.06 

MBTE 
MBT2A 



BTRES 

BTTSTE 

BTRES*2 

BTTSTE 

BTRES*4 

BTTSTE 

BTRESv6 

R7 



j BAD AC5 



i MOVE REGISTER CONTENTS 

»SAV r 1\C TEST RESULT 

j VERIFY THAT CONTENTS REMAINED ZERO 

} BRANCH IF GOOD 

,ALL ERRORS TO TRAP TO EMT VECTOR 

j UNIQUE ERROR NUMBER 

j ADDRESS OF ERROR MESSAGE 

{INCREMENT PATTERN COUNTER 



; TEST FOR 
j BRANCH IF 
j SET CARRY 

{ROTATE LSW OF 
» ROTATE 2 WORD 
j ROTATE 3 WORD 
sROTATE 4 WORD 



ODD /EVEN 
EVEN 

FOR TEST PATTERN SHIFT 
TEST PATTERN 
OF TEST PATTERN 
OF TEST PATTERN 
OF TEST PATTERN 
{JUMP IF THROUGH WITH TEST PA1 TERN 
{CONTINUE WITH NEW TEST PATTERN 



j GO TO NEXT REGISTER TEST 

jSEE IF THROUGH TESTING 

{JUMP IF THROUGH 

{CONTINUE TESTING WITH NEW PATTERN 



{VERIFY CONTENTS AS ZERO 
{EXIT IF Nil ZERO 
{VERIFY CONTENTS AS ZERO 
jEXIT IF NOT ZERO 
{VERIFY CONTENTS AS ZERO 
;EXTT IF NOi ZERO 
j VERIFY CONTENTS AS ZERO 
jGO BACK TO CALLING ROUTINE 



MFACU: 
J }**** 
{♦TEST 

;;**+* 

jTHIS 

;R2-P0 

jR3-P0 

; {♦*♦* 

TST2: 



♦♦A******************************************************** 

2 TEST UNIQUE J C .SS OF FPP ACCUMULATORS 
******************** ************************************* 

TEST LOADS UNIQUE PATTERNS INTO EACH ACCUMULATOR SIMULTANEOUSLY 

INTER TO EXPECTED DATA 

INTER TO RECEIVED DATA 

********* ******+************************«*******«****t4+**t 



MFAs 



INC 



i'.TD 
Cl.R 



JTESTN 



RO 



; INCREMENT TEST NUMBER 



{SETUP FPP ACC POINTER 



N2 



GLOBAL AREAS 
KOJUA.MAC 



MACY11 30AC1052) 
15-MAR-84 15:51 



15-MAR-84 16:58 PAGE 26 

T2 TEST UNIQUENESS OF FPP ACCUMULATORS 



SEQ 0026 



1055 
1056 
1057 
*058 
( >9 
. ,50 
1061 
1062 
1063 
1064 
1065 
1066 
1067 
1068 
1069 
1070 
1071 
1072 
10/5 
1074 
1075 
1076 
1077 
1078 
1079 
1080 
1081 
1082 
1083 
1084 
1085 
1086 
1087 
1088 
108^ 
1090 
1091 
1092 
1095 
1094 
1095 
109^ 
1097 
1098 
1 099 
1100 
1101 
1102 

: i o 5 

1104 
1105 
11 Ob 

1 1 u : 

1108 
! iv '* 
1110 



003210 
005212 
003216 
005222 
003230 
003256 
003244 
003252 
003256 
003260 
003264 
003270 
003272 
003276 
003302 
003306 
003312 
003316 
005522 
003326 

003332 
003336 
003342 
003344 
003346 
003350 

003352 

003356 
003362 
003366 

0033 ;o 

003372 
003374 

003376 
00 5402 
003406 
0034 If 
0054 14 
00341h 
003420 

003422 

00 5426 
0054 52 
00 }4 36 
00 5440 

00 34 42 
00 5444 

003446 
00 345,' 
OC 54 '.,4 
003460 



005004 
012702 
C12703 
012767 
012767 
012767 
0127o7 
172467 
174005 
004567 
172467 
174004 
004567 
172767 
004567 
172667 
004567 
172567 
004567 
172467 

174067 
004567 
001405 
104000 
000011 
002013 

004567 

174167 
004567 
001405 
104000 
000012 
002013 

004567 

174267 
004 56/ 
001403 
104000 
000013 
002013 

00456/ 
1 74 36/ 

004 56/ 
00140 5 
104000 
000014 
002013 

0045*/ 

1 /< J /()4 
1 '43*1.* 
00456 7 



001066 
001076 
000051 
000052 
000053 
000054 
175610 

000240 
175576 

000226 
175564 
000216 
175554 
000206 
175544 
000176 
175534 

175540 
000246 



000200 
175514 
A 00222 



000154 
1754 70 
000176 



000150 
1 75444 
000152 



175636 
175632 
175626 
175622 



8FAC1 



BFAC2 



BFAC3 



00011*4 

: '54 1» 

000124 



UFAC4 



CLR 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
LDD 
STO 
JSR 
LDD 
STD 
JSR 
LDD 
JSR 
LDD 
JSR 
LDD 
JSR 
LDD 

b.'l) 

JSR 

BEQ 

ERROR 

.UORD 

.WORD 

JSR 

STD 

JSR 

BEQ 

ERROR 

.WORD 

.WORD 

JSR 

STD 

JSR 

BEQ 

ERROR 

.WORD 

.WORD 

JSR 

STD 
JSR 
BEU 
ERROR 

.WORD 
.WORD 

JSR 
LDD 
■»TD 
JSR 



R* 

4BTEXP.R2 

4BTRES 4 R3 

051.BTEXP 

<>52,GTEXP*2 

453.BTEXP+4 

454.BTEXP*6 

BTEXP.ACO 

AC0.AC5 

R5.SUBT 

BTEXP.ACO 

AC0.AC4 

R5,SUBT 

BTEXP.AC3 

R5.SUBT 

BTEXP.AC2 

R5.SUBT 

BTEXP.AC1 

R5.SUBT 

BTEXP.ACO 

ACO.BTRES 

R5.BFA 

3FAC1 

11 
FPPERR 

R5.ADDT 
AC1.BTRES 
R5.BFA 
BFAC2 

12 
FPPERR 

R5.ADDT 
AC2.BTRES 
R5.BFA 
BFAC3 

13 
FPPERR 

R5.ADDT 
AC3.BTRES 
H5.UF A 

BFAC4 

14 
FPPERR 

R5.ADDT 
AC4.AC3 
AC3.HTRES 
R5.BFA 



.POINT TO TEST DATA 
{POINT TO RECEIVED DATA 
tSETUP EXPECTED DATA 



jMOVE DATA TEMPORARILY 

{PUT DATA INTO TEST REGISTER 

j SUBTRACT TEN FROM EACH EXPECTED DATA 

{MOVE DATA TEMPORARILY 

{MOVE DATA INTO TEST REGISTER 

{SUBTRACT 10 FROM TEST DATA WORDS 

{STORE INTO TEST REGISTER 

;GET NEXT SET OF UNIQUE DATA WORDS 

{STORE INTO TEST REGISTER 

GET NEXT sty OF TEST DATAS 

LOAD TEST REGISTER 

GET NEXT SET OF TEST WORDS 

LCAD FINAL TEST REGISTER 

ALL REGISTER CONTAIN UNIQUE TEST WORDS 

STORE ACO, RESULT 

CHECK RESULT 

BRANCH IF GOOD 

ALL ERRORS TO TRAP TO EMI VECTOR 

UNIQUE ERROR NUMBER 
{ADDRESS OF ERROR MESSAGE 
{BAD ACO 

{UPDATE EXPECTED RESULT 
{STORE AC1 RESULT 
{CHECK RESULT 
{BRANCH IF GOOD 

{ALL ERRORS TO TRAP TO EMT VECTOR 
{UNIQUE ERROR NUMBER 
{ADDRESS OF ERROR MESSAGE 
{BAD RESULT AC1 

{UPDATE EXPECTED RESULT 
{STORE AC2 RESULT 
{CHECK RESUVT 
{BRANCH I." GOOD 

{ALL ERRORS TO TRAn TO EMT VECTOR 
{UNIQUE ERROR NUMBER 
{ADDRESS OF ERROR MESSAGE 
{BAD AC2 RE SLUT 

{UPDATE EXPECTED RESULT 
{SAVE TEST RESULT 
{CHECK RESULT 
{BRANCH IF GOOD 

{ALL ERRORS TO TRAP TO EMT VECTOR 
{UNIQUE ERROR NUMBER 
{ADDRESS OF ERROR MESSAGE 
{BAD AC3 RESULT 

•UPDATE EXPECTED RESULT 
{SAVE TEMPORARY 
jSTORe AC4 RESULT 
{CHECK RESULT 



i-3 



.4 



GLOBAL 


AREAS 


MACU1 


30AC1052) 15-MAR 84 16 


5 58 PAGE 2 7 




KDJ11A, 


MAC 15 -MAR -84 


15:51 




T2 


TEST UNIQUENESS OF FPP ACCUMULATORS 


1111 


003464 


001403 








BEQ 


BFAC5 


I BRANCH IF GOOD 


in*? 


003466 


104000 








ERROR 




lALL ERRORS TO TRAP TO EMT VECTOR 


1U3 


0034 70 


000015 








.WORD 


i5 


ilNIQUE ERROR NUMBER 


U14 


003472 


002013 








.WORD 


FPPERR 


\ ADDRESS OF ERROR MESSAGE 


1115 














|BAD 


AC4 RESULT 


1116 


0034 74 


004567 


000056 




BFAC5: 


JSR 


R5.ADDT 


lUPDATE EXPECTED RESULT 


1117 


003500 


172605 








LDD 


AC5.AC2 


l SAVE TEMPORARY COP* 


1118 


003502 


174267 


1753 70 






5TD 


AC2.BTRES 


iMOVE AC5 RESULT 


1119 


003506 


004567 


000076 






JSR 


R5,BFA 


I CHECK RESULT 


1120 


003512 


001456 








BEQ 


BFAE 


I BRANCH IF GOOD 


1121 


003514 


104000 








ERROR 




I ALL ERRORS TO TRAP TO EMT VECTOR 


1122 


003516 


000016 








.UORD 


16 


I UN I QUE ERROR NUMBER 


1123 


003520 


002013 








,WORD 


FPPERR 


t ADDRESS Of ERROR MESSAGE 


1124 














j BAD 


AC5 RESULT 


1125 

1126 
1127 


003522 


000452 








BR 


BFAE 


*EXIY MODULE 


003524 


162767 


00O010 


175334 


SUBT; 


SL8 


♦10.BTEXP 


lUPDATE EXPECTED CONTENTS 


1128 


003532 


162767 


000010 


175330 




SUB 


*10,BTEXP*2 


lUPDATE EXPECTED CONTENTS 


1129 


003540 


162767 


000010 


175324 




sue 


«10,BTEXP*4 


iL*>DATE EXPECTED CONTENTS 


1130 


003546 


162767 


000010 


175320 




sue 


♦10,BTEXP»6 


lUPDATE EXPECTED CONTENTS 


1131 


003554 


0O0205 








RTS 


R5 


I 


1132 


003556 


062767 


ooooio 


175302 


ADDT: 


ADD 


♦10.BTEXP 


lUPDATE EXPECTED CONTENTS 


1133 


003564 


062767 


ooooio 


175276 




ADD 


♦10,BTEXP*2 


lUPDATE EXPECTED CONTENTS 


1134 


003572 


062767 


000010 


175272 




ADD 


*10,BTEXP»4 


lUPDATE EXPECTED CONTENTS 


1135 


003600 


06276 7 


OOOOIO 


175266 




AOD 


*10,BTEXP*6 


lUPDATE EXPECTED CONTENTS 


1136 


003606 


000205 








RTS 


R5 




1137 


















1136 


003610 


026767 


175252 


175260 


BFA: 


CMP 


BTEXP.BTRES 


iVERIF^f CONTENTS 


1139 


003616 


001013 








BNE 


BFB 


lEXIT IF NOT 7ER0 


1140 


003620 


02676 7 


175244 


175252 




CMP 


BTEXP*2,BTRf.S»2 


iVERIFY CONTENTS 


1141 


003626 


OO1007 








BNE 


BFB 


lEXIT if NOT ZERO 


1142 


003630 


02676 7 


175236 


175244 




CMP 


BTEXP»4,BTRE5*4 


(VERIFY CONTENTS 


1143 


003636 


001003 








BNE 


BFB 


lEXIT IF NOT ZERO 


1144 


003640 


026767 


175230 


175236 




CMP 


BTEXP»6,BTRE.S»6 


1WRIF1 CONTENTS 


1145 
1146 


003646 


000205 






BFB; 


RTS 


R5 


|G0 BACK TO CALLING ROUTINE 


1147 
1148 


003650 








BFAE: 








1149 


















1150 


















1151 


















1152 
1153 
1154 


003650 








TSFPl: 
















I*TEST 


3 


TFST LDFPS AND STfPS 


MODE 


1155 


003650 
















1156 


TST3s 








1157 


003650 


005267 


175150 






INC 


ITESTN 


I INCREMENT TEST NUMBER 


1158 


003654 


00503 7 


002122 






CLR 


B*TRPFLG 


iCLEAR TRAP FLAG 


1159 


003660 


012704 


147757 






MOV 


$147757, R4 


iSETUP DATA TO BE LOADED 


1160 


003664 


004 76 7 


0000 52 






jsn 


PC, LOST 


lLOAD ANO STORE FPS WITH DATA 


1161 


003670 


012704 


105252 






MOV 


9 105252. R4 


1 SETUP DATA TO BE LOADtD 


1162 


0036 74 


0O4 76 7 


000022 






JSR 


°C,l OST 


ll.OAD ANO STORE FPS WITH DATA 


1163 


003 700 


012704 


042505 






MOV 


04 2505. R4 


j SE TUP DATA TO BE LOADED 


1164 


003 704 


004 7b 7 


000012 






JSR 


PC, LOST 


I LOAD AND STORE Fp^ gHH DATA 


1165 


005/10 


005004 








CI R 


R4 


jSlTuP DATA TO QE LOADtD 


1166 


003712 


004 767 


000004 






JSR 


PC. LOST 


lLOAD ANO STORE FPS wlfH DAI A 



SEQ 0027 



GLOBAi 


ARt AS 


MACU1 


30AI 105; 
15:51 


KDJUA, 


MAC 15 ^MAR -84 


1167 








1168 








1169 


003716 


000167 


000020 


1170 








1171 


003722 


170104 




117,? 


003724 


170201 




1173 


003726 


020401 




1174 


003730 


001403 




1175 


003732 


104000 




1176 


003734 


000017 




1177 


003736 


002013 




1178 








1179 


003740 


000207 




1180 


003742 






1181 








1182 


003742 






118?. 








1184 








lies 








1186 


003742 






1187 


003742 


C05267 


175036 


1188 


003746 


005037 


002122 


1189 


003752 


012704 


00O017 


1190 


003756 


004 767 


000032 


1191 


003762 


012704 


000012 


1192 


003766 


004 767 


000022 


1193 


003772 


012704 


000005 


1194 


003776 


004767 


000012 


1195 


004002 


"^OGA 




1196 


004 OO' 


00* t v. 7 


000004 


1197 








1198 








1199 


004 10 


000167 


000030 


1200 








1201 


004' 14 


170104 




1202 


004ol6 


170000 




1203 


004020 


013701 


177776 


1204 


004024 


042701 


177760 


1205 


004030 


020*01 




1206 








1207 


004032 


001403 




1208 


004034 


104000 




1209 


004036 


000020 




1210 


0O4040 


002013 




1211 








1212 


004042 


00020 7 




1213 


0O4044 






1214 








1215 


004044 






1216 








;2i7 








1218 








1219 


004044 






1220 


004044 


00526 7 


174734 


1221 


004050 


00503 7 


002 1*V 


1222 


004054 


012 704 


QQ02U0 



C5 

15 MAR A4 16:58 PAGE 28 

TJ TEST LDFPS AND STfPS MODE 



SEQ 0026 



JMP 



FIN1 



LOST: 


IDFPS 


R4 




STFPS 


Rl 




CMP 


R4,R1 




BEQ 


11 




ERROR 






.WORD 


17 




. WORD 


FPPERR 


It: 


RTS 


PC 


FINlt 







jLOAD fPS WITH DATA 
lLOAD Rl WITH CFPS) 
iDID THE INSTRUCTIONS WORK 
l YES GO ON 

l ALL ERRORS TO TRAP TO EMT VECTOR 
l UNIQUE ERROR NUMBER 
j ADDRESS OF ERROR MESSAGE 
j NO GO TO ERROR 
jRETURN 



T5FP2: 



i*TEST 



TEST CFCC 









TST4: 








INC 


ITESTN 




CLR 


MTRPt'LG 




MOV 


017, R4 




JSR 


PC.TSF2 




MOV 


•12. R4 




JSR 


PC.TSF2 




MOV 


•5.R4 




JSR 


PC.TSF2 




CLR 


R4 




JSR 


PC.TSF2 


{ 


JMP 


FINS 


TSF2: 


LDFPS 

C^CC 


R4 




MOV 


Ml 77776. Rl 




BIC 


0177760, Rl 




CMP 


R4.R1 




BEQ 


1$ 




ERROR 






.WORD 


20 




.WORD 


FPPERR 


!♦: 


RTS 


PC 


FIN?; 







lINCPEHENT TLST NUMBER 

lCLEA-1 TRAP FLAG 

|SETV;J DATA TO BE LOADED 

,LOAO ['PS ANO COPY CONDITION COOES TO PS 

% SETUP DATA TO BE LOADED 

;.' OVJi FPS AND COPY CONDITIO* COOES TO PS 

jSEVLP rATA TO BE LOADED 

-.LOAO FPS AND COP> CONDITION COOES TO PS 

l SETUP f..MA TO BE LOADED 

I LOAD FPS AND COPY CONOITION CODES TO PS 



I LOAD FPS 

i COPY CONOITION COOES TO PS 
j SAVE PS TO Rl 
iMASK OUT UNWANTED BUS 
iWAS CONOITION CODE BITS TRANSFERRED 
I CORRECTLY 
i YES GO ON 

l ALL ERRORS TO TRAP TO EMT VECTOR 
j UN I QUE ERROR NUMBER 
i ADDRESS OF ERROR MESSAGE 
jNO GO TO ERROR 
iRETURN 



TSFPS: 

II a*********.*************** ************************************** 

(♦TEST 5 TFST SE TF '. SfcTD, SET.!, SE Ft 

| J ♦♦* **** * 4****** t*«*t4**»*4i«*»**ii**H**4**«»»«* ******* ******** 

TST5: 

INC ITESTN j INCREMENT TEST NUMBER 

CI R BOTRPFLti j CLEAR TRAP FLAG 

MOV 0200, R4 j SETUP DATA TO BE LOADED 



GLOBAL 
KOJUA, 


AREAS HACli; 
MAC 15-MAA-84 


30AC1052) 15-M 


1223 


004060 


170104 




1224 


004062 


170001 




1225 


004064 


170201 




1226 


004066 


020127 


000000 


1227 


0O4072 


001403 




1228 


004074 


104000 




1229 


004076 


00O021 




1230 


004100 


002013 




1251 








1232 


004102 


170011 




1233 


004104 


170201 




1234 


004106 


020104 




1235 


004110 


001403 




1236 


004U2 


104000 




1237 


004114 


000022 




1238 


004116 


002013 




1239 








1240 


004120 


012704 


000100 


1241 


004124 


170104 




1242 


0O4126 


170002 




1243 


0O4130 


170201 




1244 


004132 


020127 


000000 


1245 


004136 


001403 




1246 


004140 


1O4000 




1247 


0O4142 


000023 




1248 


0O4144 


C02013 




1249 








1250 


004146 


170012 




1251 


0O4150 


170201 




1252 


0O4152 


020104 




1253 


004154 


001403 




1254 


004156 


104000 




1255 


004160 


000024 




1256 
1257 
1258 


004162 


002013 




004164 






1259 








1260 








1261 


004164 






1262 








1263 








1264 








1265 


004164 






1266 


004164 


005267 


174614 


1267 


004170 


005037 


002122 


1268 


0O4174 


012705 


170003 


1269 


004200 


013746 


000244 


12 70 


0O4204 


012737 


004 340 000244 


1271 


0O4212 


013746 


000004 


12/2 


0O4216 


012737 


004424 000004 


1273 


004224 


013746 


0OOO10 


1274 


004230 


012737 


004434 000010 


1275 


004236 


005003 




12/6 


004240 


170103 




12/? 


004 242 


O0';002 




1278 


004244 


010537 


004 250 



4$ 



TSFP4 







D3 


W^l 


Kf? 9 setd, 


SETI, 


LDFPS 


R4 




SETK 






STFPS 


Rl 




CMP 


R1.00 




Bt'Q 


It 




ERROR 






.WORD 


21 




.WORD 


FPPERR 




SETD 






STFPS 


Rl 




CMP 


R1.R4 




BEQ 


2t 




ERROR 






.WORD 


22 




.WORD 


FPPERR 




MOV 


0100, R4 




LDFPS 


R4 




SETI 






STFPS 


Rl 




CMP 


R1.00 




BEQ 


3$ 




ERROR 






.WORD 


23 




.WORD 


i-'PPERR 




SETL 






STFPS 


Rl 




CMP 


R1.R4 




BEQ 


4* 




ERROR 






.WORD 


24 




.WORD 


FPPERR 





SETL 

LQAO FPS 

MAKE FD-0 

STORE FPS 

IS FD-0 

YES GO ON 

ALL ERRORS TO TRAP TO EMT VECTOR 

UNIQUE ERROR NUMBER 

ADDRESS OF ERROR MESSAGE 
tNO GO TO ERROR 

MAKE FD-1 

STORE FPS 

IS FD-1 

ftS GO ON 

ALL ERRORS TO TRAP TO EMT VECTOR 

LWICMJE ERROR NUMBER 

ADDRESS OF ERROR MESSAGE 
{NO GO TO ER30R 

SETUP DATA TO BE LOADED 

LOAO FPS 

MAKE FL-0 

STORE FPS 

IS FL-0 

YES GO ON 

ALL ERRORS TO TRAP TO EMT VECTOR 

UNIQUE ERROR NUMBER 

ADDRESS OT ERROR MESSAGE 
j NO GO TO ERROR 

MAKE FL-1 

STORE FPS 

IS FL-1 

YES GO ON 

ALL ERRORS TO TRAP TO EMT VECTOR 

UNIQUE ERROR NUMBER 
; ADDRESS OF ERROR MESSAGE 
j NO GO TO ERROR 



SEQ 0029 



[♦TEST 6 
, (♦**♦*+ 

TST6: 



TEST ILLEGAL OP COOES AND STST 



Ul: 



INC ITESTN 

CLR hlOTRPFLG 

MOV 0170003. R5 

MOV U0244,-CSP) 

MOV OILL0P1, 80244 

MOV 004,- (SP) 

MOV OTIME0U.S04 

MOV aoio.-(SP) 

MOV "ILL0P2, 6)010 

CLR R3 

LDFPS R3 

CLR R2 

MOV R5.Q0D2 



INCREMENT TEST NUMBER 
CLEAR TRAP FLAG 
INIT OP CODE 
SAVE FP VECTOR 
SETUP NEW VECTOR 
SAVE TIME 0U1 VECTOR 
SETUP NEW VECTOR 
SAVE ILLEGAL VECTOR 
SETUP NEW VECTOR 

CLEAR FPS 

SETUP THE ILLEGAL INST 



E'6 



GLOB At. 


ARFAS 


MAC 111 


30AC1O52') 


15-MAR-84 16 


;58 PAGE 30 


KDJL1A. 


MAC 15-MAR-84 


15;51 


T6 


TEST ILLEGAL OP COD 


1279 


004250 


000000 




D2: 


.WORD 





1260 


004252 


170000 




03: 


CFCC 




1281 


004254 


005202 






INC 


R2 


1282 


004256 


005202 






INC 


R2 


1283 


004260 


170201 






STEPS 


Rl 


1284 


004262 


104000 






ERROR 




1285 


004264 


000025 






.WORD 


25 


1286 


004266 


002013 






.WORD 


FPPERR 


1287 














1288 


004270 


022705 


170010 


D4: 


CMP 


0170010, R5 


1289 


004274 


001003 






BNE 


D5 


1290 


004276 


012705 


170013 




MOV 


0170013, R5 


1291 


004302 


000755 






BR 


01 


1292 


004304 


022705 


170077 


D5: 


CMP 


0170077.R5 


1293 


004310 


001001 






BNE 


D6 


1294 


004312 


000402 






BR 


07 


1295 


004314 


005205 




D6: 


INC 


R5 


1296 


004316 


00074 7 






BR 


Dl 


1297 


004320 


012637 


0000 10 


D7: 


MOV 


csp)*,aoio 


1298 


004324 


012637 


000OO4 




MOV 


(SP)*,S04 


1299 


004330 


012637 


000244 




MOV 


(SP)»,Q0244 


1300 














1301 








i 






1302 


004334 


000167 


000104 




JMP 


FIN4 


1303 








t 






1304 


004340 


022716 


004252 


iLLOPli 


CMP 


003. CSP) 


1305 


004344 


001403 






BEQ 


1$ 


1306 


004346 


104000 






ERROR 




130 7 


0O4350 


000026 






.WORD 


26 


1308 


004352 


002013 






.WORD 


FPPERR 


1309 














1310 


004 354 


022626 




1$: 


CMP 


C SP ) ♦ , ( 5P ) * 


1311 


004356 


170201 






STFPS 


Rl 


1312 


004360 


022701 


100000 




CMP 


0100000 *R1 


131.3 


004364 


001403 






BEQ 


2$ 


1324 


004366 


104000 






ERROR 




1315 


004370 


000027 






.WORD 


27 


1316 


004372 


002013 






.WORD 


FPPERR 


131/ 














1318 


004 374 


005004 




?.ti 


CLR 


R4 


1319 


004376 


170304 






STST 


R4 


1320 














1321 














1322 














1 5113 


0O4400 


022704 


000002 




CMP 


02. «4 


1324 


004404 


001002 






bne 


31 


1325 


0O4406 


00016/ 


177656 




JMP 


D4 


1526 


004412 






3$: 






1327 


0O4412 


104000 






ERROR 




1 528 


004414 


000030 






. WORD 


30 


1529 


004416 


002013 






.WORD 


FPPERR 


1330 














1331 


004420 


000 K-/ 


1/7044 




JMP 


D4 


1332 








j 






1335 


004424 






TIMEOUj 






1334 


004424 


104000 






ERROR 





SEQ 0030 



I 

jMEMORY WORDS TO BE USED WITH 

} EXECUTION OF ILLEGAL OP CODE 

j SAVE FPS 

j ALL ERRORS TO TRAP TO EMT VECTOR 
j UNIQUE ERROR NUMBER 
j ADDRESS OF ERROR MESSAGE 
jGO TO ERROR 

i COMPUTE NEXT OP CODE 
1 

i 
i 



i 
t 
t 
{RESTORE VECTORS 



DID TRAP OCCUR ON TESF INST 

YES GO ON 

ALL ERRORS TO TRAP TO EMT VECTOR 

INIQUE ERROR NUMBER 

ADDRESS OF' ERROR MESSAGE 
»N0 GO TO ERROR 

CLEAN UP STACK 

STORE FPS 

IS FPS CORRECT 

YES GO ON 

ALL ERRORS TO TRAP TO EMT VECTOR 

UNIQUE ERROR NUMBER 

ADDRESS OF ERROR MESSAGE 
;N0 GO TO ERROR 

INT R4 TO A KNOWN STATE 

STORE EEC AT R4 

IF THE DESTINATION MODE IS IMPROPERLY 

DECODED AN ODD ADDRESS TRAP TO 4 

SHOULD OCCUR 

IS FEC CORRECT 

NO GO TO ERROR 

YES GO ON 

ALL ERRORS TO TRAP TO EMT VECTOR 
UNIQUE ERROR NUMBER 
ADDRESS OF ERROR MESSAGE 
»G0 TO ERROR 

j THEN GO ON 



[ALL ERRORS TO TRAP TO EMT VECTOR 



5 



GLOBAt. ARIAS 
KDJ11A.MAC 



1535 
1336 

1357 

1338 

1339 

1340 

1341 

134? 

1343 

1344 

1345 

1346 

134 7 

1348 

1349 

1350 

1351 

135c' 

1353 

1354 

1355 

1356 

1357 

1358 

1359 

1360 

1361 

1362 

1363 

1364 

1365 

1366 

1367 

1366 

1369 

1370 

1371 

137? 

1573 

13/4 

1375 

1376 

137/ 

13 78 

1379 

1380 

1381 

1382 

1385 

1384 

1385 

1386 

138' 

1588 

H89 

1 '.90 



004426 
004430 



MACU1 30AC1052) 
15-MAR-84 lb ? 51 

000031 
002013 



15 -MAR -84 
Tb 



lb; 



! ?i 



I PAGE 31 
ST ILLEGAL 



OP CODES AND STST 



SEQ 0031 



004432 000006 



004434 
004434 

004436 
004440 

004442 
004444 

004444 



004444 
004444 
004450 
004454 
0O4460 
0O4466 
0O4472 
0044 74 
0044 76 
004500 
OO4502 
0O4506 
004510 
0O451? 
004514 

004516 
004520 
0O4524 
004 526 

004530 
004532 



004544 
0O4544 
0O4546 
004550 

004552 
004554 

004554 



104000 
000032 
002013 

000006 



005267 
005037 
013746 
012737 
012703 
170103 
170020 
170000 
170201 
022701 
001403 
104 OOC 
000033 
002013 

170304 
022704 
001403 
104 OOO 

000034 
002013 



104000 
00C035 
002013 

000006 



ILL0P2; 



174334 
002122 
000244 
004544 
040000 



140000 



F.IN4: 

TSFP5: 
i + ** + 
♦ TEST 
t * * * * 

TST7; 



.WORD 
.WORD 

RTT 



ERROR 
.WORD 
.WORD 

RTT 



3i 
FPPERR 



32 
FPPERR 



i UNIQUE ERROR NUMBER 
I ADDRESS OF ERROR MESSAGE 
I ERROR BECAUSE OF TRAP TO 4 
{RETURN 



I ALL ERRORS TO TRAP TO EMT VECTOR 
{UNIQUE ERROR NUMBER 
I ADDRESS OF ERROR MESSAGE 
{ERROR BECAUSE OF TRAP TO 10 
I RE TURN 



7 TEST FID (INTERRUPT DISABLE BIT) 



000244 



000002 



1* 



004534 012637 000244 



004540 000167 000010 



ILL: 



INC 

CLR 

MOV 

MOV 

MOV 

LDFPS 

.WORD 

crcc 

STFPS 

CMP 

BEQ 

ERROR 
.WORD 
.WORD 

STST 
CMP 
BEQ 
ERROR 

.WORD 
.WORD 

MOV 



JMP 



ERROR 
.WORD 
.WORD 



iTESTN 

fittTRPFLG 

8*244, -CSP) 

*ILL.B0244 

04 0000, R 3 

R3 

170020 

Rl 

0140000, Rl 
It 

33 

FPPERR 

R4 

02, R4 
2* 

34 

FPPf-RR 

(SP)*. 5W244 



FIN5 



i INCREMENT TEST NUMBER 

{CLEAR TRAP FLAG 

{SAVE FP VECTOR 

{SETUP NEW VECTOR 

{SETUP DATA TO BE LOADED 

{LOAD FPS, FID-1 

{ILLEGAL FP INSTRUCTION 

{SEE IF ERROR WAS RECORDED IN FPS 

j YES Gi' LvJ 

{ALL ELi^ORS TO TRAP TO EMT VECTOR 
{UNIQUE. ERROR NUMBER 
{ADDRESS OF ERROR MESSAGE 
{NO GO TO ERROR 

;SEE IF FEC-2 

{YES GO ON 

;ALL ERRORS TO TRAP TO EMT VECTOR 
l UN I QUI-: ERROR NUMBER 
{ADDRESS OF ERkOR MESSAGE 
{NO GO TO ERROR 

{RESTORE VECTOR 



55 
FPPERR 



RTT 



{FID 



FTN5; 
T Sf P6 ; 

j ;***♦ 

{♦TEST 



{ALL ERRORS TO TRAP XQ EMT VECTOR 
{UNIQUE ERROR NUMBER 
{ADDRESS OF ERROR MESSAGE 
ERROR 

{RETURN 



10 TEST LOD, STD FSRC AND FDST MODE 1 



GLOBAL AREAS 
KD J 11 A. MAC 



MACUl SOAC1052"; 
15-MAR-84 15:51 



15-MAR-64 

T10 



16: 



! *l 



.ST 



LOB, STD 



o3 



FSRC AND FDST MODE 1 



SEQ 0032 



1391 

1392 
1593 
1394 
1 395 
1396 
139/ 
139ft 
1399 
1400 
1401 
14 \? 
1403 
1404 
1405 
1406 
1407 
1408 
1409 
1410 
1411 
141? 
1413 
1414 
1415 
1416 
1417 
1418 
1419 

1420 
1421 
1422 
1423 
1424 
1425 
1426 
142/ 
1428 
1429 
1430 
1431 
143? 
1433 
1434 
1435 
1436 
143/ 
1438 
1439 
1440 
1441 
1442 
144 5 
1444 
3445 
1446 



004554 
004554 
004560 
004564 
004566 
004570 
00457? 
004576 
004604 
004610 
004612 
004616 
004620 
004622 
004624 

004626 
004632 
004636 
004640 
004642 
004644 
004646 

004650 
004652 
00465b 
004660 
0O4664 
004666 
0046/0 
004672 

0046/4 
0O4 700 
004 704 
004 706 
004/10 
004/12 
004/14 

004/16 
004 720 



004 730 
004/32 
004/34 
004 7 56 
004 740 
004/4? 
004/44 
004 746 



005267 
005037 
00500^- 
1701OA 
170011 
013746 
012737 
012704 
172414 
020427 
001403 
104000 
000036 
002013 

012701 
012703 
022421 
001403 
104000 
000037 
002013 

07/306 
012704 
1/4014 
020427 
001403 
104000 
C 00040 
002013 

012701 
012703 

022421 
001403 
104000 
000041 
002013 

0//506 
012637 



0O4 724 000167 



17/7// 

000000 

052525 

12525? 

1/7777 

000000 

05252' 

125252 



1 74224 
002122 



000004 
004 750 
004 740 

004 740 



004 730 
000004 



001136 
001136 



004 7 30 
000004 



000004 
000030 



TST10: 



000004 



II 

2* 



JJ 



4* 
5$ 



6$ 



TS6DA: 



TS6DAT 



INC 

CLR 

CL.R 

LOFPS 

SETD 

MOV 

MOV 

MOV 

LDO 

CMP 

BEQ 

ERROR 

.WORD 

.UORD 

MOV 

MOV 

CMP 

BEQ 

ERROR 
.WORD 
.WORD 

GOB 

MOV 

SID 

CMP 

BEQ 

ERROR 

.W09D 

.WOfiD 

MOV 

MOV 

CMP 

BEQ 

ERROR 
.WORD 
.WORD 

SOB 
MOV 



JMP 



51ESTN 

oarnPFuG 

R4 

R4 

a*4, -csp) 

$TSF6,tf04 

0TS6DAT.R4 
(R4),AC0 
R4 t #TS6DAT 
1$ 

36 

FPPERR 

0TS6DA.R1 
04, R3 

CR4)*,CR1)* 
3* 

37 
FPPERR 

R3.2I 

«TSTL0C,R4 
AC0»CR4) 
R4 # *TSTL0C 
4$ 

40 
FPPERR 

GTS6DA.R1 
•4.R3 

CR4)»,(R1)» 
6$ 

41 
FPPERR 

R3.5* 
(SP)»,£W4 



F.IN6 



INCREMENT TEST NUMBER 

CLEAR TRAP FLAG 

SETUP TO LOAD DATA 

CLEAR FPS 

SET FD TO 1 

SAVE TIMEOUT VECTOR 

SETUP NEW VECTOR 

SETUP POINTER TO DATA 
TEST INSTRUCTION 

IS R4 CORRECT 

YES GO ON 

ALL ERRORS TO TRAP TO EMT VECTOR 

UNIQUE ERROR NUMBER 

ADDRESS OF ERROR MESSAGE 
{NO GO TO ERROR 

SETUP POINTER TO DATA 

INIT COUNTER 

WAS SOURCE DATA ALTERED 

NO GO ON 

ALL ERRORS TO TRAP TO EMT VECTOR 

UNIQUE ERROR NUM8ER 

ADDRESS OF ERROR MESSAGE 
j YES GO TO ERROR 

ARE WE DONE 

SETUP POINTER FOR DATA 
TEST INSTRUCTION 

i IS R4 CORRECT 

YES GO ON 

ALl ERRORS TO TRAP TO EMT VECTOR 

UNIQUf. ERROR NUMBER 
j ADDRESS OF ERROR MESSAGE 
j NO GO TO ERROR 

{SETUP POINTER TO DATA 
I INIT COUNTER 

j IS DESTINATION DATA CORRECT 
i YES GO ON 

{ALL ERRORS TO TRAP TO EMT VECTOR 
{UNIQUE ERROR NUMBER 
j ADDRESS OF ERROR MESSAGE 
{NO GO TO ERROR 

{ARE WE DONE 
{RESTORE VECTOR 



.WORD 


17? n; 


.WORD 


000000 


.WORD 


052525 


.WO*D 


125252 


. WORD 


1/7/// 


, WORD 


000000 


. WORD 


052525 


.WORD 


125252 



H3 



GLOBAL 


AREAS 


MACYU 


30AU052) 15-M, 


KDJ11A, 


MAC 15-MAR-84 


15;S1 


144 7 








1449 


004 750 






1449 


004 750 


104000 




1450 


004 752 


000042 




1451 


004 754 


002013 




1452 








145? 


004756 


000006 




1454 


004 760 






1455 








1456 


004760 






1457 








1458 








1459 








1460 


004 760 






14bl 


004 760 


005267 


174020 


1462 


004 764 


005037 


002122 


1463 


004 770 


012704 


000200 


1464 


004774 


170104 




1465 


004776 


013746 


000004 


1466 


005002 


012737 


005154 000004 


1467 


005010 


012704 


005164 


1468 


005014 


172414 




1469 


005016 


012 701 


005174 


1470 


005022 


1 72511 




1471 


005024 


172401 




14 72 


005026 


012704 


001136 


1473 


005032 


174114 




1474 


005034 


004767 


000072 


1475 


005040 


012704 


001136 


1476 


005044 


012701 


005174 


14 7 7 


005050 


174014 




1478 


005052 


004767 


000054 


14 79 


005056 


012701 


005164 


1480 


005062 


172511 




1481 


005064 


170O01 




1482 


005066 


172401 




1483 


005070 


170011 




1484 


005072 


012704 


001136 


1485 


005076 


174114 




1486 


005100 


004767 


000026 


1487 


005104 


012704 


0052C4 


1488 


005110 


012701 


001136 


1489 


005114 


174011 




1490 


005116 


004 767 


000010 


1491 


005122 


012637 


000004 


1492 








1493 








1494 


005126 


000167 


000062 


1495 








14 96 


005132 


012 703 


000004 


149 7 


005136 


022421 




1498 


005140 


001403 




1499 


005142 


104000 




1500 


005144 


00004 3 




1501 


005146 


002013 




1VJ2 









t-84 
T10 



SF6 



16:58 PAGE 33 
TEST I DD, STD 



FSRC AND FDST MODE 1 



SEQ 0033 



ERROR 
.WORD 
.WORD 

RTT 



42 
FPPERR 



FIN6: 

TSFP7; 

I t **** 
;*TEST 
i ;*♦** 
TSUI? 



lALL ERRORS TO TRAP TO EMT VECTOR 
i UNIQUE ERROR NUMBER 
j ADDRESS OF ERROR MESSAGE 
;0DD ADDRESS TRAP 
I RE TURN 



**************************** ***********4****«*****4+******* 

11 TEST LDD. LDF FSRC MODE 

************************** AA ******************************* 



INC 

CLR 

MOV 

LDFPS 

MOV 

MOV 

MOV 

LDD 

MOV 

LDD 

LDD 

MOV 

STD 

JSR 

MOV 

MOV 

STD 

JSR 

MOV 

LDD 

SETF 

LDF 

SETD 

MOV 

STD 

JSR 

MOV 

MOV 

STD 

JSR 

MOV 



JMP 



ITESTN 
SOTRPFLG 

0200. R4 

R4 

W*4. -CSP) 

#1SK7,8#4 

*TS7DA1,R4 

(R4).AC0 

4TS7DA2.R1 

(Rl).ACl 

ACi.MCO 

♦TSTL0C.R4 

AC1.CR4) 

PC .CHECK 7 

*TSTL0C,R4 

0TS7DA2.R1 

AC0.CR4) 

PC.CHECK7 

0TS7DA1.R1 

(RD.AC1 

AC 1. ACO 

OTSTL0C.R4 
AC1.CR4) 
PC, CHECK 7 
0TS7DA4.R4 

OTSTL0C.R1 
AC0.CR1 ) 
PC , CHECK 7 

(SP)t,ao4 



FIN7 



CHECK 7 j 


MOV 


04 . R 3 


CHEK7j 


CMP 


(R4 )*,(R1)» 




BEQ 


CHK7 




ERROR 






.WORD 


43 




.WORD 


FPPERR 



INCREMENT TEST NUMBER 
CLEAR TRAP FLAG 
SETLP TO LOAD FPS 
LOAD FPS, F'D-1 
SAVE TIMEOUT VECTOR 
SETUP NEW VECTOR 
SETUP POINTER TO DATA 
CLEAR ACO 

SETUP POINTER TO DATA 
LOAD AC1 WITH DATA 
TEST INSTRUCTION 

CHECK IF AC1 HAS BEEN ALTERED 

;SETUP POINTERS FOR DATA 

CHECK IF ACO RECEIVED CORRECT DATA 

SETUP POINTER TO DATA 

CLEAR AC1 
SET : _ D-0 

TEST INSTRUCTION 
SET FQ-1 

SE TUP POINTER TO DATA 
CHECK IF AC1 HAS BEEN ALTERED 

SETUP POINTERS FOR DATA 

CHECK IF ACO HAS CORRECT DATA 

RESTORE VECTOR 



j NO GO 



iINIT COUNTER 
j IS DA I* A OK 
I YES GO ON 

I AH ERRORS TO TRAP TO KMT VECTOR 
{UNIQUE ERROR NUMBER 
jADDReSS OF ERROR MESSAGE 
TO ERROR 



13 



GLOBAl 


AW AS 


MACU1 


30AM052) 
15:51 


15-MAR-84 16 


'ftsSt 


OD, l.ok fsrc 


KDJ11A. 


MAC 15-MAR 84 


Til 


1503 


005150 


077306 




CHK7; 


SOB 


R3.CHEK7 


1504 


005152 


000207 






RTS 


PC 


1505 








i 






1506 


005154 






TSF7{ 






1507 


005154 


104000 






ERROR 




1508 


005156 


000044 






.WORD 


44 


1509 


005160 


002013 






.WORD 


FPPERR 


1510 














1511 


005162 


000006 






RTT 




151? 








1 






151? 


005164 


000000 




TS7DA1- 


.WORD 





1514 


005166 


000000 






.WORD 





1515 


005170 


000000 






. WORD 





1516 


005H2 


000000 






.WORD 





1517 


005174 


037641 




TS7DA2: 


.WORD 


37641 


1518 


005176 


065121 






.WORD 


65121 


1519 


005200 


0373/3 






.WORD 


373 73 


1520 


005202 


022265 






.WORD 


22265 


1521 


005204 


000000 




TS7DA4: 


.WORD 





1522 


005206 


000000 






.WORD 





1523 


005210 


0373 73 






.WORD 


37373 


1524 


00:.- 2 12 


022265 






.WORD 


22265 


3 525 


005214 






FIN7: 






1526 








• 






1527 


005214 






T5FP10: 






1528 








• ;******* + ****** + *****«./. *** 


1529 








;*TEST 


12 


TEST ST. 1 ), S 


1530 








• ;«*****«***+** ************ 


1531 


005214 






TST12: 






1532 


005214 


005267 


173564 




INC 


iTESTN 


1533 


005220 


005037 


002122 




CLR 


a^TRPFLG 


"534 


005224 


012704 


000200 




MOV 


0200, R4 


1535 


005230 


170104 






LDFPS 


R4 


1536 


005232 


013746 


000004 




MOV 


S*4,-(5P) 


153/ 


005236 


012737 


005410 


000004 


MOV 


<HSF10,a$4 


1538 


005244 


012704 


005420 




MOV 


0TS10D1.R4 


153^ 


005250 


172414 






1.00 


(R4),AC0 


1540 


005252 


012701 


005430 




MOV 


0TS10D2.R1 


1541 


005256 


172511 






LDD 


(Rl).ACl 


1542 


005260 


174100 






STD 


AC1.AC0 


1543 


005262 


012704 


001136 




MOV 


0TSTL0C.R4 


1544 


005266 


174114 






STD 


AC1.CR4) 


1T45 


005270 


004767 


000072 




JSR 


PC.CHECIO 


1546 


005274 


012704 


001156 




MOV 


*TSTl 0C.R4 


154 7 


005300 


012701 


00543C 




MOV 


0TS10D2.R1 


1548 


005304 


174014 






STO 


AC0,(R4) 


1549 


005306 


004 76/ 


000054 




JSR 


PC.CHECIO 


1550 


005312 


012701 


005420 




MOV 


0TS10D1.R1 


1551 


005316 


172511 






LDD 


fRD.ACl 


1552 


005320 


170001 






SETF 




1553 


005322 


174100 






5 IT 


AC1.AC0 


1554 


005324 


170011 






SETD 




1555 


005326 


012/04 


001136 




MOV 


0T5TL0C.R4 


1556 


005332 


174114 






sro 


AC1,(R4) 


1557 


005334 


004 76 / 


000026 




JSR 


PC.CHECIO 


15! b 


005340 


012704 


005440 




MOV 


GTS10D4.R4 



MODE 



SEQ 0034 



f ARE 
I YES 



WE DONE 
RETURN 



lODt 



j ALL ERRORS TO TRAP TO EMT VECTOR 
j UNIQUE ERROR NUMBER 
{ADDRESS OF ERROR MESSAGE 

TRAP 
jRETURN 



************************************** 

TF FDST MODE O 

************************************** 



INCREMENT TEST NUMBER 
CLEAR TRAP FLAG 
SETUP TO LOAD FPS 
LOAD FP5. FD-1 

SAVE TIMEOUT VECTOR 
SETUP NEW VECTOR 
SETUP POINTER TO DATA 
CLEAR ACO 

SETUP POINTER TO DATA 
LOAD AC1 WITH DATA 
TEST INSTRUCTION 

CHECK IF AC1 HAS BEEN ALTERED 

SETUP POINTERS FOR DATA 

CHECK IF ACO RECEIVED CORRECT DATA 

SETUP POINTER TO OATA 
CLEAR AC1 
SET FD-0 

TEST INSTRUCTION 
SF.T FD-1 

SETUP POINTER TO DATA 
CHECK IF" AC1 HAS BEEN At TERED 

SETUP POINTERS FUR LATA 



J 3 



GLOBAL AM-. AS 
KDJ11A.MAC 



1559 

1560 

1561 

1562 

1563 

1564 

1565 

1566 

1567 

1566 

1569 

1570 

1571 

1572 

1573 

1574 

1575 

1576 

1577 

1578 

1579 

1580 

1581 

1582 

1583 

1584 

1585 

1586 

158? 

1588 

1589 

1590 

1591 

1592 

1593 

1594 

1595 

1596 

1597 

1598 

1599 

1600 

160L 

1602 

1603 

1604 

1605 

1606 

1607 

1608 

1609 

1610 

1611 

1612 

1*,13 

1614 



MACU1 30AC1052) 
15-MAR-84 15:51 

005344 012701 001136 

005350 174011 

005352 004767 000010 

005356 012637 000004 



005362 000167 000062 



15-MAR-84 
T12 



16 {58 PAGE 35 

TEST STD, STF FDST MODE 



SEQ 0035 



005366 
005372 
005374 
0053^6 
005400 
005402 

005404 
005406 

005410 
005410 
005412 
005414 



005420 
005422 
005424 
005426 
005430 
005432 
005434 
0054 36 
005440 
005442 
005444 
005446 
005450 

005450 



005450 
005450 
005454 
005460 
005464 
005466 
005472 
0054 74 
0054 76 
005500 
005504 
005506 
Q05512 



012703 000004 

022421 

001403 

104000 
000045 
002013 

077306 
000207 



104000 
000046 
002013 



005416 000006 



000000 
000000 
000000 
000000 
177777 
111236 
100045 
003651 
000000 
000000 
100045 
003651 



005267 
00503 7 
012704 
170104 
012704 
172414 
170400 
.170203 
012704 
174014 
012701 
022427 



173330 
002122 
000200 

005550 



001136 

000004 
000000 



MOV 
STD 
JSR 
MOV 



JMP 



0TSTL0C.R1 

AC0.CR1) 
PCCHEC10 
( SP ) ♦ ♦ 304 



FIN10 



CHEC10: 


MOV 


04, R3 


CHlOi 


CMP 


(R4)*,(R1)* 




BEQ 


CHK10 




ERROR 






.WORD 


45 




.WORD 


FPPERR 


CHK10: 


SOB 


R3,CH10 




RTS 


PC 


TSF10: 


ERROR 






.WORD 


46 




.WORD 


FPPERR 




RTT 




TS10D1: 


.WORD 







.WORD 







.WORD 







.UOHD 





TS10D2; 


.WORD 


177777 




.WORD 


111236 




.WORD 


100045 




.WORD 


3651 


TS10D4: 


.WORD 







.WORD 







.WORD 


100045 




.WORD 


3651 


FINlOt 






TSFP11: 






j ;*******4*********^****44* 


{♦test 


13 


TEST FDST S 


• • *********************«*,** 


TST13i 








INC 


ITESTN 




CLR 


aOTRPFLG 




MOV 


0200, R4 




LUFPS 


R4 




MOV 


0TS11DL.R4 




LDD 


(R4),AC0 




CLRD 


ACO 




STF PS 


R3 




MOV 


OTSTl.0C.R4 




STD 


AC0.CR4) 




MOV 


04, Rl 


1$: 


CMP 


CR4)f ,00 



tCHECK IF ACO HAS CORRECT DATA 
I RESTORE VECTOR 



jINIT COUNTER 
iIS DATA OK 
»YES GC ON 

;ALL ERRORS TO TRAP TO EMI VECTOR 
j UNIQUE ERROR NUMBER 
; ADDRESS OF ERROR MESSAGE 
{NO GO TO ERROR 

j ARE UE DONE 
jYES RETURN 



j ALL ERRORS TO TRAP TO EMT VECTOR 
; UNIQUE ERROR NUMBER 
{ADDRESS OF ERROR MESSAGE 
;ODD ADDRESS TRAP 



{INCREMENT TEST NUMBER 
jCLEAR TRAP FLAG 
{SETUP TO LOAD FP3 
i SET FD-1 

jSETUP POINTER to DATA 
{LOAD ALL ONES TO ACO 
{ TEST INSTRUCTION 
{GET LPS 



{CHECK ACO f"OR 
{INIT COUNTER 

I 



ALL ZEROES 



I<3 



GLOBAL AREAS 
KDJ11A.MAC 



1615 

1616 

1617 

1618 

1619 

1620 

1621 

1622 

1623 

1624 

1625 

1626 

1627 

1628 

1629 

1630 

1631 

1632 

1633 

1634 

1635 

1636 

1637 

1138 

1639 

1640 

1641 

1642 

1643 

1644 

1645 

1646 

1647 

1648 

1649 

1650 

1651 

1652 

1653 

1654 

1655 

1656 

1657 

1658 

1659 

1 660 

1661 

1662 

1663 

106*1 

1665 

1666 

166/ 

1668 

3 669 

1670 



MACY11 30AC1052) 
15-MAR-84 15:51 

005516 001403 

005520 104000 

005522 00004 7 

005524 002013 

005526 077107 

005530 02032 7 000204 

005534 001403 

005536 104000 

005540 000050 

005542 002013 

005544 



005544 000167 000010 



liS 


-MAR-84 


16 


:58 PAGE 36 




T13 




TEST FDST SINGL 








BEQ 


2$ 








ERROR 










.WORD 


47 








.WORD 


FPPERR 




2$: 




SOB 

CMP 

BEQ 

ERROR 

.WORD 

.WORD 


Rl.ll 

R3.0204 
3$ 

SO 

FPPERR 



SEQ 0036 



005550 
005552 
005554 
005556 
005560 

005560 



005560 
005560 
005564 
005570 
005574 
005576 
005600 
005602 
005604 
C05610 
005612 
005614 
005616 

005620 
005624 
005626 
005630 
005632 

005634 



005634 



005634 
005634 



177777 
17/777 
177777 
177777 



005267 
005037 
012703 
170103 
170407 
170204 
170305 
022704 
001401 
104000 
000051 
002013 

022705 
001403 
104000 
000052 
002013 



173220 
002122 
040200 



140200 



000002 



3$ 



{OK GO ON 

,ALL ERRORS TO TRAP TO EMT VECTOR 

I UNIQUE ERROR NUMBER 

j ADDRESS OF ERROR MESSAGE 
j NO GO TO ERROR 

I ARE WE DONE 

j CHECK FPS 

{OK GO ON 

;ALL ERRORS TO TRAP TO EMT VECTOR 

{UNIQUE ERROR NUMBER 

j ADDRESS OF ERROR MESSAGE 
j NO GO TO ERROR 



JMP 



FIN11 



TSllDlt 


.WORD 


177777 




.WORD 


177/77 




.WORD 


177777 




.WORD 


177777 


FIN11: 






TSFP12: 






• •++*++****+*♦+♦♦*♦+*+♦♦** 


;*TEST 


14 


TEST FDST 


; j************************ 


TST14: 








INC 


ITESTN 




CLR 


adTRPFLG 




MOV 


440200, R3 




LDFPS 


R3 




CLRD 


AC 7 




STFPS 


R4 




STST 


R5 




CMP 


0140200, R4 




BEQ 


1* 




ERROR 






.WORD 


51 




.WORD 


FPPERR 


1$: 


CMP 


02. R5 




BEQ 


2$ 




ERROR 






.WORD 


52 




.WORD 


FPPERR 



SOP MODE WITH ILLEGAL AC7 



j INCREMENT TEST NUMBER 



{CLEAR 
I SETUP 



TRAP FLAG 

TO LOAD FPS 



2$ 



»SET FID-1, AND FO-1 

; TES1 INSTRUCTION 

sCET FPS 

jCFT FEC 

j IS FPS CORRECT 

{YES GO ON 

;A_L ERRORS TO TRAP TO EMT VECTOR 

{UNIQUE ERROR NUMBER 

{ADDRESS OF ERROR MESSAGE 
jNO GO TO ERROR 

{IS FEC CORRECT 

; YES GO ON 

{ALL ERRORS TO TRAP TO EMT VECTOR 

{UNIQUE. ERROR NUMBER 

{ADDRESS OF ERROR MESSAGE 
jNO GO TO ERROR 



005267 173144 



TSP-P13: 

j+TEST 15 TtST FDST SOP MODE 1 

;;++** + + ** + + + + * + *** + * + **********♦>********<*******♦* + *♦***** a***** 

TSTlSs 

INC *TfcSTN {INCREMENT TEST NUMBER 



L3 



GLOBAL AREAS 
KOJ11A.MAC 



MACU1 30AC1052) 
15-MAR-84 15:51 



15-MAR-84 
T15 



16J.S6 



PAGE 3 7 
f FDST SOP 



MODE 1 



5EQ 0037 



1671 

1672 
1673 
1674 
1675 
1676 
1677 
1678 
1679 
1680 
1681 
168? 
1683 
1684 
1635 
1686 
1 68 7 
lb88 
1689 
1690 
1691 
1692 
1693 
1694 
1695 
1696 
1697 
1698 
1699 
1700 
1701 
1702 
1703 
1704 
1705 
1706 
1707 
1708 
1709 
1710 
1711 
1712 
1713 
1714 
1715 
1716 
1/17 
718 
719 
720 
721 
722 
1723 
1 724 
1 725 
1726 



005640 
005644 
005652 
005656 
005662 
005664 
005670 
0056 74 
005700 
005702 
005706 
005710 
005712 
005716 
005720 
005722 
005724 

005 726 
005 732 
005736 
005740 
005742 
005744 

005746 
005750 
005754 
005756 
005760 
005762 



005 7 74 
005 7 74 
005 776 
006000 

006002 

006004 

006004 



006004 
006004 
006010 
006014 
006022 
006026 



013746 
012737 
005037 
012702 
170102 
012705 
012704 
012724 
077503 
012702 
170412 
170203 
020227 
001403 
104000 
000053 
002013 

012701 
022227 
001403 
104000 
000054 
002013 

077107 
020327 
001403 
104000 
000055 
002013 



005764 012637 



005770 000167 



104000 
000056 

002013 

000006 



00526 7 
013746 
012 73 7 
005037 
012702 



000004 
005774 
002122 
000200 

000004 
001136 
177777 

001136 



001136 



000004 
000000 



000204 



000004 
000010 



172/74 
000004 
006150 
002122 
000200 



000004 



100$: 



It: 
2$: 



3$j 



4* ; 



TSF13: 



MOV 

MOV 

CLR 

MOV 

LDFPS 

MOV 

MOV 

MOV 

SOB 

MOV 

CLRD 

STFPS 

CMP 

bEQ 

ERROR 
.WORD 
.WORD 

MOV 

CMP 

BEQ 

ERPOR 
.WORD 
.WORD 

SOB 
CMP 
BEQ 
ERROR 

.WORD 
.WORD 

MOV 



JMP 



ERROR 

.WORD 
.WORD 

RTT 



B#4, -(SP) 

*TSF13,a<>4 

SflTRPFLG 

«200,R2 

R2 

04,R5 

0TSTLOC.R4 

#177777, CR4)* 

R5.100I 

#TSTL0C,R2 

(R2) 

R3 

R2.0TSTLOC 

1$ 

53 
FPPERR 

04, Rl 

(R2)»,00 
3$ 

54 

FPPERR 

R1.2* 
R 3, 0204 
4$ 

55 
FPPERR 

(5P)»,ao4 



FIN13 



jSAVE TIMEOUT VECTOR 

j SETUP NEW VECTOR 

j CLEAR TRAP FLAG 

{SETUP TO LOAD FPS 

;SET FD-i 

iINIT COUNTER 

{SETUP POINTER TO TEST LOCATION 

{MOVE ALL ONES TO TEST LOCATION 

I ARE WE DONE 

j SETUP POINTER TO DATA 

I TEST INSTRUCTION 

{GET FPS 

{WAS R2 ALTERED 

{NO GO ON 

{ALL ERRORS TO TRAP TO EMT VECTOR 

•UNIQUE ERROR NUMBER 

{ADDRESS OF ERROR MESSAGE 
{YES GO TO ERROR 

iINIT COUNTER 

{CHECK LOCATION FOR 

{OK GO ON 

{ALL ERRORS TO TRAP TO EMT VECTOR 

{UNIQUE ERROR NUMBER 

{ADDRESS OF ERROR MESSAGE 
{NO GO TO ERROR 

{ARE WE DONE 

{CHECK FPS 

{OK GO ON 

jALL ERROHS TO TRAP TO EMT VECTOR 

lUNIOUE ERROR NUMBER 

{ADDRESS OF ERROR MESSAGE 
{NO GO TO ERROR 

{RESTORE VECTOR 



56 
FPPERR 



{ALL ERRORS TO TRAP TO EMT VECTOR 
{UNIQUE ERROR NUMBER 
j ADDRESS OF ERROR MESSAGE 
{ODD ADDRESS TRAP 
{RETURN 



000004 



FIN13: 

i 
TSFP14: 

l*TEST 16 IfcPT FDST SOP MODt 2 

;.****+ + ***************##*«***#*****#. **###***«.**#******##* #****#-* 

TST16: 

INC ITESTN {INCREMENT TEST NUMBER 

MOV 304, (SP^ {SAVE TIMEOUT VECTOR 

MOV 01SF14,a04 {SETUP NEW VECTOR 

CLR H0IRPFLU iCLtAR TRAP FLAG 

MOV 0200, R2 {SETUP TO LOAD FPS 



M3 



GLOBAL ARFAS 
KDJ11A.MAC 



MACY11 30AQ052) 
15-MAR-84 15:51 



15-MAR-84 16{58 PAGE 38 

T16 TEST FDST SOP MODE 2 



SEQ 0038 



1727 

1728 

1729 

1730 

1731 

1732 

1733 

1734 

1735 

1736 

1737 

1738 

1739 

1740 

1741 

1742 

1743 

1744 

1745 

1746 

1747 

1748 

1749 

1750 

1751 

1752 

1753 

1754 

1755 

1756 

1757 

1758 

1759 

1760 

1761 

176? 

1763 

1764 

1765 

1766 

1767 

1768 

1769 

1770 

1771 

1772 

1773 

1/74 

17/5 

1776 

1777 

1.7 78 

17 74 

1780 

1781 

1782 



006032 
006034 
006040 
006044 
006050 
006052 
006056 
006060 
006062 
006066 
006070 
006072 
006074 

006076 
006102 
006106 
006112 
006114 
006116 
006120 

006122 
006154 
006130 
006132 
006134 
006136 



006150 
006150 
006152 
006154 

00615b 

006160 

006160 



006160 
006160 
006164 
006170 
0061/6 
006202 
006206 
006210 
006214 



012705 
012704 
012724 
077503 
012702 
170422 
170203 
020227 
001403 
104000 
000057 
002013 

012702 
012701 
022227 
001403 
104000 
000060 
002013 

077107 
020327 
001403 
104000 
000061 
002013 



006140 012637 



006144 000167 



104000 
000062 
002013 

000006 



00526/ 
013746 
012737 
005037 
012702 
170102 
012/05 
01^704 



000004 
001136 
177777 

001136 
001146 



001136 
000004 
000000 



00C204 



000004 
000010 



172620 
000004 
0063 70 
0021P2 
000200 

oooou 

001136 



100$ j 



1$: 

2$; 



3$: 



000004 



LDFPS 

MOV 

MOV 

MOV 

SOB 

MOV 

CLRD 

STFPS 

CMP 

BEQ 

ERROR 

.WORD 

.WORD 

MOV 

MOV 

CMP 

HEQ 

ERROR 

.WORD 

.WORD 

SOB 

CMP 

BEQ 

ERROR 

.WORD 

.WORD 

MOV 



JMP 



ERROR 
.WORD 
.WORD 

RTT 

FIN14: 

TSFP15: 

{♦TEST 17 

; j * + ** + ***** + + * 

TST17: 

INC 

MOV 

MOV 

CI R 

MOV 

l.OFPS 

HJV 

MOV 



4$: 



TSF14: 



R2 
#4, R5 

0TSTL0C.R4 

0177777, (R4)* 
R5.100I 

#TSTL0C,R2 
(R2)» 

R3 

R2,tfT5TLOC*10 

1$ 

57 
FPPERR 

0TSTL0C.R2 

04, Rl 

CR2*)»,tfO 
3$ 

60 
FPPERR 

Rl t 2$ 

R3.4204 
4$ 

61 

FPPERR 

(SP)*,afl4 



FIN14 



I SET FD-1 

jI. M IT COUNTER 

j SETUP POINTER TO TEST t.OCA T ION 

{MOVE ALL ONES TO TEST LOCATION 

j ARE WE DONE 

j SETUP POINTER TO DATA 

j TEST INSTRUCTION 

{GET FPS 

;IS R2 CORRECT 

I YES GO ON 

i ALL ERRORS TO TRAP TO EMT VECTOR 

{UNIQUE ERROR NUMBER 

{ADDRESS OF ERROR MESSAGE 
I NO GO TO ERROR 

{SETUP POINTER TO DATA 

sINIT COUNTER 

{CHECK LOCATION FOR 

{YES GO ON 

{ALL ERRORL TO TRAP TO EMT VECTOR 

{UNIQUE ERROR NUMBER 

{ADDRESS OF ERROR MESSAGE 
{NO GO TO ERROR 

jARE UE DONE 

{CHECK FPS 

{OK GO ON 

{ALL ERRORS TO TRAP TO EMT VECTOR 

{UNIQUE ERROR NUMBER 

{ADDRESS OF ERROR MESSAGE 
{NO GO TO ERROR 

{RESTORE VECTOR 



62 
FPPERR 



{ALL ERRORS TO TRAP TO EMT VECTOR 
{UNIQUE ERROR NUMBER 
{ADDRESS OF ERROR MESSAGE 
jODD ADDRESS TRAP 
{RETURN 



TEST FDST SOP MODE 3 

*#***j.**^***** ******** **************************** 



tTESTN 

a#4, csp) 

0T£Ft5.S04 
8KHRPFLG 

4200.R2 
R2 

09. # R1 

<>tjtl:.c,R4 



{INCREMENT TE5F NUMBER 

j SAVE TIMEOUT VECTOR 

{SETUP NEW VECTOR 

{CLEAR TRAP FLAG 

{SETUP TO LOAD FPS 

{SET FO-1 

ilNIT COUNTER 

{SETUP POINTER TO TEST LOCATION 



N3 



GLOBAL AREAS 
KD J 11 A. MAC 



MACY11 30AC1052) 
15-MAR-84 15:51 



15-MAR-84 16{58 PAGE 39 

T17 TEST FDST SOP MODE 



SEQ 0039 



1783 

1784 

1785 

1786 

1787 

1788 

1789 

1790 

1791 

1792 

1793 

1794 

1795 

1796 

1797 

1793 

1799 

1800 

1801 

1802 

1803 

1804 

1805 

1806 

1807 

1308 

1809 

1810 

1811 

1812 

1813 

1814 

1815 

1816 

1817 

1818 

1819 

1820 

1821 

1822 

1823 

1824 

1825 

1826 

1827 

1828 

1829 

1830 

1831 

1832 

1833 

1834 

1835 

1836 

183/ 

1838 



006220 
006224 
006226 
006234 
006240 
00624? 
006244 
006250 
006252 
006254 
006256 

006260 
006264 
C06270 
006272 
006274 
006276 

006300 
006304 
006310 
006312 
006314 
006316 

006320 
006322 
006326 
006332 
006334 
006336 
006340 

006342 
006344 
006350 
006352 
006354 
00635b 



006370 
0063 70 
0063/2 
006 374 

006376 

006400 

006400 



012724 
077503 
012737 
012702 
170432 
170203 
020227 
001403 
104000 
000063 
002013 

012702 
022227 
001403 
104000 
000064 
002013 

012701 
022227 
001403 
104000 
000065 
002013 

077107 

012701 
022227 
001403 
104000 
000066 
002013 

077107 

020327 
001403 
104000 

00006 7 
002013 



006360 012637 



006364 000167 



lO'^OO 
000,) 70 
002013 

OC0006 



177777 



100$: 



001150 001136 
001136 



001140 



001136 
001150 



1$: 



000004 
177777 



2$; 
3$: 



00'K)04 
000000 



4$: 
5$: 



000204 



6$; 



000004 
000010 



7$j 



TSF15: 



MOV 

SOB 

MOV 

MOV 

CLRD 

STEPS 

CMP 

BEQ 

ERROR 

.WORD 

.WORD 

MOV 

CMP 

BEQ 

ERROR 

.WORD 

.WORD 

MOV 
CMP 
BEQ 

ERROR 
.WORD 
.WORD 

SOB 

MOV 

CMP 

BEQ 

ERROR 

.WORD 

.WORD 

SOB 

CMP 

BEQ 

ERROR 

.WORD 

.WORD 

MOV 



Ji1P 



ERROR 
.WORD 
.WORD 

RTT 



0177777.CR4)* 

R5.100* 

0TSTLOC»12.8#TSTLOC 

0TSTL0C,R2 

£J(R2)* 

R3 

R?,*TSTL0C*2 

1$ 



63 
FPPF.RR 

#TSTL0C,R2 

(R2)*,4TSTL0C*12 

2$ 

64 
FPPERR 

04, Rl 

CR2)*. 0177777 

4* 

65 

FPPERR 

Rl,3$ 

04, Rl 
CR2)f ,00 
6$ 

66 
FPPERR 

R1.5* 

R3.0204 
7$ 

67 
FPPERR 

( SP ) • , 304 



FIN15 



iINIT TEST LOCATION 

j ARE WE DONE 

jINIT TEST LOCATION 
{SETUP POINTER TO DATA 

I TEST INSTRUCTION 

{GET FPS 

(IS R2 CORRECT 

{YES GO ON 

{ALL ERRORS TO TRAP TO EMT VECTOR 

{UNIQUE ERROR NUMBER 

{ADDRESS OF ERROR MESSAGE 
;N0 GO TO ERROR 

{SETUP POINTER TO DATA 
j IS DATA CORRECT 

;YES GO ON 

;ALL FRRORS 10 TRAP TO EMT VECTOR 

; UNIQUE ERROR NUMBER 

\ ADDRESS OF ERROR MESSAGE 
;N0 GO TO ERROR 

jTNIT COUNTER 

;IS LOCATION ALL ONES 
YES 30 ON 

l ALL ERRORS TO TRAP TO EMT VECTOR 

jUNIGUE ERROR NUMBER 

i ADDRESS OF ERROR MESSAGE 
{NO GO TC ERROR 

{ARE WE DONE 

iINIT COUNTER 



. T 



LOCATION 



? YES GO ON 

{ALL ERRORS TO TRAP TO EMT VECTOR 

{UNIQUE ERROR NUMBER 

; ADDRESS OF ERROR MF.SSAGL 
{NO r/i TO ERROR 

{ARE WE DONE 

{CHECK FPS 

j OK GO ON 

{ALL ERRORS TC TRAP TO EMT VECTOR 

{UNIQUE ERROR NUMBER 

{ADDRESS OF ERROR MESSAGE 
:N0 GO TO ERROR 

{RESTORE VECTOR 



70 

FPPtRR 



{ALL ERRORS TO TRAP TO EMT VECTOR 
{UNIQUE ERROR NUMBER 
{ADDRESS OF ERROR MESSAGE 
;ODD ADDRESS TRAP 
{RETURN 



FIN15: 
1SFP16: 



B4 



GLOBAL AREAS 

KDJiU\,MAC 



la?** 

1840 
1841 
184? 
184 3 
18' 4 

18^5 

18-46 
1847 
1848 
1849 
1*50 
M51 
1U52 
1453 
1354 
18SS 
1856 
185? 
1858 
1859 
1860 
1861 
1862 
1865 
1864 
1865 
1966 
1367 
156C 
11*69 
U5 70 
1871 
18 7? 
1873 
1874 
1875 
1876 
1877 
1878 
1879 
1880 
1881 
188? 
1883 
1884 
1885 
1886 
188 7 
1888 
1889 
1890 
1891 
189; j 
1893 
1894 



MACUl 30A(105?) 
15-MAR-Q4 15i51 



15 -MAR 84 
T20 



16 j 58 PAGE 

test fds 



40 
■ SOP 



MODE 4 



SEQ 0040 



0O640O 
006400 
006404 
006410 
006416 
0O6422 
0O6426 
0O64 30 
006434 
006440 
0O6444 
006446 
0O6452 
006454 
006456 
0O6462 
006464 
006466 
0O6470 

0064 72 
0064 76 
006502 
006504 
006506 
006510 

006512 
006514 
0O6520 
006524 
006526 
0O6530 
006532 

006534 
006536 
0O6542 
006544 
006546 
006550 



006562 
006562 

006564 
006566 



005267 
013746 
012737 
005037 
012702 
170102 
012705 
012704 
012724 
7 7503 
012702 
170442 
170203 
02022? 
001403 
1O40O0 
000071 
002013 

012701 
022227 
001403 
104000 
0OO072 
002013 

077107 
012701 
02222 7 
001403 
104 OOO 
0O0073 
0O20J3 

077107 
020327 
001403 
104000 
000074 
002013 



006552 012637 



006556 000167 



104 OOO 
0000/5 
002013 



172400 
000OO4 
006562 
002122 
000200 

000010 
001136 
177777 

001146 



001136 



000004 
000000 



000004 
177777 



000204 



000004 
000010 



i*TEST 
I !*♦♦♦ 
TST20: 



20 TEST TDST SO? MODE 4 



000004 



100$: 



II 



3$; 

4$: 



5tj 



61; 



TSF16; 



000570 000006 



INC 

MOV 

MOV 

CLR 

MOV 

LDFP5 

MOV 

MOV 

MOV 

SOb 

MOV 

CLRD 

STFPS 

CMP 

BEQ 

ERROR 

.WORD 

.WORD 

MOV 

CMP 

BEQ 

ERROR 

.WORO 

.WORD 

soe 

MOV 

CMP 

BEQ 

ERROR 

.WORD 

.WORD 

soe 

CMP 
BEQ 
ERROR 

.WORD 
.WORD 

MOV 



JMP 



ERROR 

.WORD 
.UORQ 

RTT 



ITESTN 
B#4, (SP) 
•TSF16.&44 

»#TRPFLG 

•200, R2 

R2 

♦8. ,R5 

• T5Tl.OC.R4 

•1777*7, (R4)» 

R5,100t 

•TSTL0C*10,R2 

(R2) 
R3 

R2,*T5TL0C 
It 

71 
FPPERR 

•4.R1 

CR2)*,^0 

3t 

72 
FPPERR 

R1.2I 

•4,R1 

(R2)*, •17777? 
5$ 

73 

FPPERR 

R1.4I 

R3,d204 
61 

74 
FPPERR 

(SP)»,W>4 



FIN16 



INCREMENT TEST NUMBER 

SAVE TIMEOUT VECTOR 

SETUP NEW VECTOR 

CLEAR TRAP FLAG 

SETUP TO LOAD FPS 

SET FD'l 

INIT COUNTER 

SETUP POINTER TO TEST LOCATION 

INIT TEST LOCATION 

ARE WE DONE 

iSETUP POINTER TO DATA 
TEST INSTRUCTION 

GET FPS 

iIS R2 CORRECT 

YES GO ON 

ALL ERRORS TO TRAP TO EMT VECTOR 

UNIQUE ERROR NUMBER 

ADDRESS OF ERROR MESSAGE 
I NO GO TO ERROR 

INIT COUNTER 

IS LOCATION 

YES GO ON 

ALL ERRORS TO TRAP TO EMT VECTOR 

UNIQUE ERROR NLW6ER 

ADDRESS OF ERROR MESSAGE 
jNO GO TO ERROR 

ARE WE DONE 

INIT COUNTER 

IS LOCATION UNCHANGED 

>ES GO ON 

ALL ERRORS TO TRAP r EMT VECTOR 

UNIQC* ERROR NLf«ER 

ADDRESS Of ERROR MESSAGE 
iNO GO TO ERROR 

ARE WE DONE 

CHECK FPS 

OK GO ON 

ALL ERRORS TO TRAP TO EMT VECTOR 

UNIQUE ERROR NUMOER 

ADDRESS OF ERROR MESSAGE 
iNO GO TO ERROR 

jRESTORE VECTOR 



7S 
FPPERR 



j ODD 



I ALL ERRORS TO TRAP TO EMT VICTOR 
jLNIQL* frRROR N^fMUER 
jADDRtSb QK ERROR MtSSAUt 
ADDRESS TRAP 
jRETURN 



C4 



lit OB At 


ARfr AS 


MAO 11 


30AI 105, 


KDJUA. 


MAC 15 -MAR- 84 


15:51 


1895 








189b 


006572 






1897 








1898 


006572 






1899 








1900 








1901 








1902 


006572 






1903 


006572 


005267 


172206 


1904 


0O6576 


013746 


000OO4 


1905 


006602 


012737 


006776 


1906 


006610 


005037 


002122 


1907 


006614 


012702 


000200 


1908 


006620 


170102 




1909 


006622 


012705 


000011 


1910 


006626 


012704 


001136 


1911 


006632 


012724 


177777 


1912 


006636 


077503 




1913 


006640 


012737 


001150 


1914 


006646 


012702 


001140 


1915 


006652 


170452 




1916 


006654 


170203 




1917 


006656 


020227 


001136 


1918 


006662 


001403 




1919 


0O6664 


104000 




1920 


006666 


000076 




1921 


006670 


002013 




1922 








1923 


006672 


022227 


001150 


1924 


0O6676 


001403 




1925 


006700 


10*1000 




1926 


0O6702 


000077 




1927 


006704 


002013 




1928 








1929 


0O6706 


012701 


000004 


1930 


00671? 


022227 


177777 


1931 


006716 


001403 




1932 


OO6720 


104000 




1933 


006 722 


000100 




1934 


006 724 


002013 




1935 








1936 


0O6726 


077107 




1937 


006730 


012701 


000004 


1938 


006734 


0222? 7 


oooooo 


1939 


006740 


001403 




1940 


0O6742 


104000 




1941 


0O6744 


000101 




1942 


0O6746 


002013 




1943 








1944 


006/50 


077107 




1945 


006752 


020 32/ 


000204 


1946 


006 756 


001403 




194 7 


0O67*:.0 


104 000 




1948 


0O6762 


000 10,. 




194 9 


006764 


002013 




19S0 









15 



MAR 84 
T20 

I 



16 {58 PAGE 41 

TEST FDST SOP MODE 4 



SEQ 0041 



riN16: 

TSFP17 
i »♦♦*♦ 
i*TEST 
» I ♦*♦♦ 

TST21: 



21 TEST FDST SOP MODE 5 



000004 



100$; 



001136 



1*J 



2» 
3$ 



Ait 

5$: 



6*i 



INC 

MOV 

MOV 

CLR 

MOV 

LOFPS 

MOV 

MOV 

MOV 

soe 

MOV 

MOV 

CLRD 

STFPS 

CMP 

BEQ 

ERROR 
.WORD 
.WORD 

CMP 
BEQ 
ERROR 

.WORD 
.WORD 

MOV 

CMP 

BEQ 

ERROR 
.WORD 
.WORD 

soe 

MOV 
CMP 
BEQ 

ERROR 
.WORD 

.WORD 

SOB 

CMP 
0f 
fcP^OR 
.WORD 
.WORD 



•TESTN 

B*4,-CSP) 

*TSF17.0*4 

B«TRPFLG 

*200,R2 

R2 

♦9..R5 

0TSTL0C.R4 

♦177777, (R4)* 

R5.1O0I 

*TSTLOC»12,0*TSTLOC 

«TSTL0C»2 t R2 

B-CR2) 

R3 

R2,orSTLOC 

1* 



76 
FPPERR 

(R2)»,0TSTL0Ca2 
2$ 

77 

FPPERR 

*4 t Rl 

(R2)», #177?77 

4$ 

100 
FPPERR 



j NO GO TO ERROR 
TES GO 



00 



R1.3I 

#4,R1 
CR2)> 
6$ 

101 

FPPERR 



R1.5I 

R3,*204 

71 

102 
FPPERR 



INCREMENT TEST NUMBER 

SAVE TIMEOUT VECTOR 

SETUP NEW VECTOR 

CLEAR TRAP FLAG 

SETl*> TO LOAD FPS 

SET FO-1 

INIT COUNTER 

SETLP POINTER TO TEST LOCATION 

INIT TEST LOCATION 

ARE WE DONE 

I INIT TEST LOCATION 
■SETUP POINTER TO DATA 
TEST INSTRUCTION 

GET FPS 

iIS R2 CORRECT 

YES GO ON 

ALL ERRORS TO TRAP TO EMT VECTOR 

UNIQUE ERROR NUMBER 

ADDRESS OF ERROR MESSAGE 



*rs 

ON 



DATA CORRECT 



ALL ERRORS TO TRAP TO EMT VECTOR 

UTJIQUE ERROR NUMBER 

ADDRESS OF ERROR MESSAGE 
iNO GO TO ERROR 

INIT COUNTER 

IS LOCATION ALL ONES 

YES GO ON 

ALL ERRORS TO TRAP TO EMT VECTOR 

LHIQL€ ERROR NUMBER 

ADDRESS OF ERROR MESSAGE 
I NO GO TO ERROR 

ARE WE DONE 

INIT COUNTER 

IS LOCATION 

YES GO ON 

ALL ERRORS TO TRAP \0 EMT VECTOR 

INIQUE ERROR NUMBER 

ADDRESS OF ERROR MESSAGE 
j NO GO TO ERROR 

ARE Wfc DONE 

CHECK FPS 

OK GO ON 

ALL ERRORS \0 TRAP TO I MT VECTOR 

UNIQUE. ERROR NUMQER 
; ADDRESS OF ERROR MESSAGE 
jNO GO TO ERROR 



SbS?fo.AKfc AS IsW^W^ IS MAR t? f l6t^ ST P^| T 4|J 



1)4 



5T HOP MODE b 



SEQ 0042 



m 


006 766 


012637 


000004 


1953 








1954 


006772 


000167 


000010 


1^55 








1956 


006776 






1957 


006776 


104000 




1958 


007000 


000103 




1959 


007002 


002013 




1960 








1961 


0070O4 


000006 




1962 








1963 


007005 






1964 








1965 


007006 






1966 








196 7 








1968 








1969 


007006 






1970 


007006 


005267 


171772 


1971 


007012 


005037 


002122 


1972 


007016 


013746 


000004 


1973 


007022 


012737 


007176 


1974 


007030 


0127C2 


000200 


1975 


007034 


170102 




1976 


007036 


012705 


000010 


1977 


007042 


012704 


001136 


1978 


007046 


012724 


177777 


1979 


OO7052 


077503 




1980 


007054 


012702 


001137 


1981 


007060 


170462 


000007 


1982 


007064 


170203 




1983 


007066 


020227 


001137 


1984 


0070 ? 


001403 




1985 


0070/4 


104000 




1986 


007076 


0O0104 




1987 


O071OO 


002013 




1988 








1989 


00/102 


012702 


001136 


1990 


0071O6 


012701 


0000O4 


1991 


007112 


022227 


177777 


1992 


007116 


001403 




1<>93 


007120 


104000 




1994 


007122 


000105 




1995 


007124 


002013 




1996 








1997 


007126 


077107 




1998 


007130 


012701 


000004 


1999 


007134 


022227 


000000 


2000 


007140 


001403 




2001 


00/142 


104000 




2002 


007144 


000106 




200 5 


007146 


002013 




2004 








2005 


00/150 


077107 




2006 


007152 


02032? 


000204 



000004 



7${ 



I 



TSF17s 



MOV 



JMP 



ERROR 
.WORD 
.WORD 

RTT 



( SP ) ♦ , Q04 



FIN17 



103 
FPPERR 



I RESTORE VECTOR 



j ODD 



I All ERRORS TO TRAP TO EMT VECTOR 
I UNIQUE ERROR NUMBER 
j ADDRESS OF ERROR MESSAGE 
ADDRESS TRAP 
jRETURN 



FIN17; 



T5FP20; 

I ; + + + ******* + ** 

i*TEST 22 

TST22? 

INC 

CLfc 

MOV 

MOV 

M0 V 

LOU'S 

Mi'v 

Ml'v 



+++*+*++*+*«#*****4^*«**+«*#+***«*««*«***«+***«*** 

IE5T FDST SOP MOOE 6 

**t, ********** ^**-s« ******* *&**#***********«*#**#***.* 



100$ 



1$: 
2%\ 






5J; 



a Uu 

^ ■'.-> 

. Vi'Wi 
MOV 

ivl 

fV.i". 

i ; r; f -;..: 

.WO *'ti 



rir' 
i) : .U 
* 1 1 -11)1 J 



. i .j 



» IT.STN 

MfffRPFLG 

tt*4 t -CSP? 

4'1SF20,«e4 

f200,R2 

1.'2 

#8. ,R5 

vmstloc,R4 

#177777. (R4)* 

R5aoo$ 

0TSTLOC*1,R2 

/(R2) 

R.5 

R2.«TSTL0C»1 

1$ 

104 
FPPERR 

*?TSTL0C.R2 

*4,R1 

CR2)*, #177777 

31 

105 
FPPERR 

PI. 2$ 
04.R1 
fR2).,#0 

5) 

106 
FPPERR 

Ml. 4$ 
R3.02O4 



j INCREMENT TEST NUMBER 

I CLEAR TRAP FLAG 

{SAVE TIMEOUT VECTOR 

tSETUP NEW VECTOR 

iSFTUP TO LOAD FP5 

(SET FD«1 

iINIT COUNTER 

I St TUP POINTER TO TEST LOCATION 

iINIT TEST LOCATION 

j ARE WE DONE 

jSETUP POINTER TC DATA 

l TEST INSTRUCTION 

jGET FP5 

j IS R2 CORRECT 

j YES GO ON 

I ALL. ERRORS TO TRAP TO EMT VECTOR 

i UNIQUE ERROR NUMBER 

t ADDRESS OF ERROR MESSAGE 
I NO GO TO ERROR 

tSETUP POINTER TO DATA 

iINIT COUNTER 

iIS OATA CORRECT 

f YES GO ON 

;ALL ERRORS TO TRAP TO EMT VECTOR 

1 UNIQUE ERROR NUMBER 

I ADDRESS OF ERROR MESSAGE 
j NO GO TO ERROR 

j ARE WE DONE 

iINIT COUNTER 

{IS DATA CORRECT 

1 YES GO ON 

l ALL ERRORS TO TRAP TO EMT VECTOR 

lUNIGUE ERROR NUMBER 

1 ADDRESS OF ERROR MESSAGE 
j NO GO TO ERROR 

1 ARE WE DONE 

|1S EPS CORRECT 



E4 



GLOBPl 


ARb AS 


MACU1 


30AC1052: 


15-MAR-84 16 


i 5a pa 

TEST F 


DST SOP MODE 6 






KDJ11A. 


MAC 15-MAR-84 


15:51 


T22 






2007 


007156 


001403 






RF.Q 


6$ 




j YES GO ON 


2008 


007 A 60 


104000 






EHROR 






,ALL ERRORS TO TRAP TO EMT 


2009 


007162 


000107 






, WORD 


107 




i UNIQUE ERROR NUMBER 


2010 


007164 


002013 






. WORD 


FPPERR 




l ADDRESS OF ERROR MESSAGE 


2011 














j NO GO 


TO ERROR 


2012 
2013 
2014 


007166 


012637 


000004 


6*: 


MOV 


(SP)*,Q#4 




iRESTORE VECTOR 








i 










2015 


007172 


000167 


000010 




JMP 


FIN20 






2016 








i 










2017 


007176 






TSF2Q; 










2018 


007176 


104000 






ERROR 






} ALL ERRORS TO TRAP TO EMT 


2019 


007200 


000110 






. WORD 


110 




j UNIQUE ERROR NUMBER 


2020 


00 7202 


002013 






. WORD 


FPPERR 




I ADDRESS Or ERROR MESSAGE 


2021 














tODD ADDRESS TRAP 


2022 
20^ 
20c~» 


007204 


000006 






RU 






j RETURN 


007206 






FIS20: 










2025 








j 










2026 


007206 






TSFP21: 










2027 








^****A****.i* A ******* **************.*****.**********#****#********* 


2028 








{'TEST 


<^3 


TEST FOST SOP 


MODE 7 




2029 








j;*********;.*******!***********.******.***********-**************** 


2030 


007206 






TST23: 










2031 


007206 


005267 


171572 




INC 


ITESTN 




I INCREMENT TEST NUMBER 


2032 


0C7212 


005037 


002122 




CLP 


UOTRPFLG 




i CLEAR TRAP FLAG 


2033 


007216 


013746 


000004 




MOV 


6>$4,-C5P) 




{SAVE TIMEOUT VECTOR 


2034 


007222 


012737 


007420 


000004 


MJV 


♦T5F21,S#4 




,SETUP NEW VECTOR 


2035 


007230 


012702 


000200 




MOV 


*200,R2 




{SETUP TO LOAD EPS 


2036 


007234 


170102 






LDKPS 


R2 




{SET FD-1 


2037 


007236 


012705 


000010 




MOV 


*8.,R5 




ilNIT COUNTER 


2038 


007242 


012704 


001136 




MOV 


OTSTL0C.R4 




{SETUP POINTER TO TEST LOC 


2039 


007246 


012724 


177777 


100$: 


MOV 


<?U7777,(R4)* 




»INIT TEST LOCATION 


2040 


007252 


077503 






soo 


R5.100* 




;ARE WE DONE 


2041 


0O7254 


?12737 


001136 


001146 


MOV 


OTSTLOC,Q*TSTL0C*10 


;INIT TEST LOCATION 


2042 


007262 


012702 


001141 




KOV 


«TSTL0C>3,R2 




{SETUP POINTER TO DATA 


2043 


007266 


1704 72 


000005 




a r«) 


U5CR2) 




{♦♦♦TEST INSTRUCTION*** 


2044 


007272 


170203 






STFPu 


R3 




{GET FPS 


2045 


007274 


020227 


001141 




CMP 


R2,0TSTL0C*3 




jlS R2 CORRECT 


2046 


0O7300 


001403 






be a 


1$ 




{YES GO ON 


204 7 
















{NO GO TO ERROR 


2048 


007302 


104000 






ERROR 






{ALL ERRORS TO TRAP 10 EMT 


2049 


007304 


000111 






. UORO 


111 




{UNIQUE ERROR NUMBER 


2050 


007306 


002013 






>umo 


FPPERR 




{ADDRESS OF ERROR MESSAGE 


2051 


007310 


012702 


001136 


l»: 


hOV 


CTSTLQC.R2 




{SETUP POINTER TO DATA 


2052 


007314 


012701 


000004 




MOV 


*4, Rl 




lINIT COUNTER 


2053 


0O7320 


022227 


000000 


21: 


CMP 


IR2)»,0O 




{IS DATA CORRECT 


2054 


007324 


001403 






Pf 


3* 




{YES GG ON 


2055 


007326 


104000 






ERROR 






jALL ERRORS TO TRAP TO EMT 


2056 


007330 


000112 






.U'ORf) 


112 




{UNIQUE ERROR NUMBER 


205/ 


007332 


002013 






. WORD 


FPPERR 




{ADDRESS OF ERROR MESSAGE 


2058 














j NO GO 


TO ERROR 


2059 


00/334 


07710 7 




3i . 


f-iiti 


H 1 , 2 $ 




{ARE WE DONE 


2060 


C07336 


022227 


001136 




CMP 


(R2)*,#TSTL0C 




ilS DATA CORRECT 


2061 


007342 


00140? 






MU 


4$ 




{YES GO ON 


2062 


00 7344 


104000 






ERROR 






{ALL ERRORS TO TRAP TO EMT 



SEQ 0043 



VECTOR 



VECTOR 



VECTOR 



VECTOR 



VECTOR 



GLOBAL ARFAS 
KDJ11A.MAC 



F4 



MACU1 30AU052) 
15-MAR-84 15;51 



15-MAR-64 
T23 



16:5fl PAGE 44 



f'DST SOP MODE 7 



SEQ 0044 



2063 
2064 
2065 
2066 
2067 
2068 
2069 
2070 
2071 
2072 
2073 
2074 
2075 
2076 
2077 
2078 
2079 
2080 



2083 
2084 
2085 
2086 
2087 
2088 
2089 
2090 
2091 
2092 
2093 
2094 
2095 
2096 
2097 
2098 
2099 
2100 
2101 
2102 
2103 
2104 
2105 
2106 
2107 
2108 
2109 
2110 
2111 
2112 
2113 
2114 
2115 
2116 
2117 
2118 



007346 
007350 

007352 
007356 
007362 
007364 

007366 
C07370 

007372 

007374 
007400 
007402 
007404 
007406 



007420 
007420 
00 7422 
007424 



007430 
007430 
0074 34 
007440 
007444 
007452 
007456 
007460 
007464 
0074 70 
007474 
00 74 76 
007504 
007510 
007512 
00 7516 
00 7522 
00 7526 
00/530 
007532 
007534 



000113 
002013 

012701 
022227 
001403 
104000 
C00114 
002013 

077107 
020327 

001403 
104000 
000115 
002013 



007410 012637 



007414 000167 



104000 
000116 
002013 



007426 000006 

007430 
007430 



005267 
0050 T 7 
013746 
01273 7 
012702 
170102 
012705 
012704 
012724 
077503 
012737 
170437 
170203 
012702 
012701 
022227 
001403 
104000 
000117 
002013 



000003 
177777 



000204 



000004 
000010 



171350 
002122 
000004 
00 7606 
000200 

000010 
001136 
177777 

001146 

001136 

001136 
000004 
000000 



4$ i 

5*5 



6$: 



7$; 



TSF21 



.WORD 
,WOI<D 

MOV 
CMP 
BED 
e'RHOR 
. WORD 
. WORD 

sob 

MP 

rn-Q 

EPROR 

. vuno 
ncv 



vJMP 



113 

FPPERR 

03, Rl 

CR2)*, 0177777 

6$ 

114 

FPPERR 

R1.5* 

R3,0204 
7% 

115 

FPPERR 

(SP)*,Q$4 



FIN21 



I UNIQUE ERROR NUMBER 

I ADDRESS Or ERROR MESSAGE 
j NO GO TO ERROR 

iINIT COUNTER 

j IS DATA CORRECT 

jYES GO ON 

lALL ERRORS TO TRAP TO EMT VECTOR 

j UNIQUE ERROR NUMBER 

I ADDRESS OF ERROR MESSAGE 
I NO GO TO ERROR 

{ARE WE DONE 

j CHECK FPS 

j OK GO ON 

jALL ERRORS TO TRAP TO EMT VECTOR 

{UNIQUE ERROR NUMBER 

{ADDRESS OF ERROR MESSAGE 
j NO GO TO ERROR 

{RESTORE VECTOR 



000004 



00113b 



I- RROR 




.WORh 


116 


. WORD 


FPPERR 




{ODD 


IHT 




F1N2L: j 




TSFP £ ;2: 




;;*..* A **:.J**M*4*****.*************** 


i*TES! 24 


TEST FOST SOP MODE 3 


j ; , * » * C .f- - t :*, * ^ *********************** * 


r&1g4: 




J.-1C 


JTESTN 


an 


NOTRPFLG 


Ml!V 


K*4, (SP) 


I'iOV 


0TSF22.QO4 


■ ;■>' 


*200,R2 


Li.i. : PS 


R2 


h'Jv 


*8, ,R5 


rir-v 


3TSTL0C.R4 


100$: K.'JV 


$177777, (R4)* 


SP'.» 


R5.100I 


f.jv 


CTSTLOC»10,aOTSTLOC 


CI f;[) 


tJtfTSTLOC 


■«r:-l l S 


R3 


ncv 


M5TLOC.R2 


Mi')V 


44. Rl 


IS: t:»2 


CR2)* ,00 


fU'J 


2* 


F ttr-o:? 




. ..'.V'".'! 


11/ 


'. uazb 


TPPERR 



{NO 



{ALL ERRORS TO TRAP TO EMT VECTOR 
{UNIQUE ERROR NUMBER 
{ADDRESS OF ERROR MESSAGE 
ADDRESS TRAP 
{RETURN 



At***********************.,;*** 

GR7 
***************************** 

{INCREMENT TEST NUMBER 

;CLEAR TRAP FLAG 

{SAVE TIME OUT VECTOR 

{SETUP NEW VECTOR 

{SETUP TO LOAD FPS 

{SET FD-1 

iINIT COLNTER 

{SETUP POINTER TO TEST LOCATION 

{INIT TEST LOCATION 

{ARE WE DONE 

{INIT TEST LOCATION 
{ TEST INSTRUCTION 

{GET FPS 

{SETUP POINTER TO DATA 

I INIT COUNTER 

{IS DATA CORRECT 

{YES GO ON 

{ALL ERRORS TO TRAP TO EMT VECTOR 

{UNIQUE ERROR NUMBER 

{ADDRESS OF ERROR MESSAGE 
GO TO ERROR 



G4 



GLOBAL 


ARIAS 


MACtll 


5 ?§Hf : 


KDJUA. 


MAC 15-MAR-84 


2119 


007536 


077107 




2120 


007540 


012701 


000004 


2121 


007544 


022227 


177777 


2122 


007550 


001403 




2123 


007552 


1C4000 




2124 


00 7554 


000120 




2123 


007556 


002013 




2126 








2127 


007560 


077107 




2128 


007562 


020327 


000204 


2129 


007566 


001403 




213C 


007570 


104000 




2131 


007572 


000121 




2132 


007574 


002013 




2133 








2134 


007576 


012637 


000004 


2135 








2136 








2137 


007602 


000167 


000010 


2138 








2139 


007606 






2140 


007606 


104000 




2141 


007610 


000122 




2142 


007612 


002013 




2143 








2144 


007614 


000006 




2145 








2146 


007616 






214 7 








2148 


007616 






2149 








2150 








2151 








2152 


007616 






21J3 


00/616 


005267 


171162 


2154 


007622 


005037 


002122 


2155 


007626 


013746 


000004 


2156 


007632 


01273 


007744 


2157 


007640 


012702 


000200 


2158 


007644 


170102 




2159 


007646 


012705 


000004 


2160 


007652 


012704 


001136 


2161 


007656 


012724 


177777 


2162 


007662 


077503 




2163 


007664 


170467 


171246 


2164 


007670 


170203 




2165 


007672 


012701 


000004 


2166 


007676 


012702 


001136 


2167 


00 //02 


022227 


000000 


2168 


00/706 


001403 




2169 


007710 


104000 




2170 


00/712 


000123 




?.17l 
21/2 

21 !*> 


007714 


002013 




00// 16 


0/7107 




2174 


007^20 


02C327 


000204 



SEQ 0045 



2$: 


SOB 


Rl.lt 




MOV 


04, Rl 


3$: 


CM!" 


CR2)*, 4177777 




BEU 


4$ 




ERKfM 






.WCKO 


120 




. WORD 


FPPERR 


4$: 


SOB 


ri,3; 




CMF 


R 3. 4204 




BlU 


5$ 




ERRlM 






. UORi> 


121 




.WORD 


FPPERR 


5$: 


MOV 


C5P )*,aa4 



{NO GO 



jARE WE DONE 
iINIT COUNTER 
lIS DATA CORRECT 
{YES GO ON 

{ALL ERRORS TO TRAP TO EMT VECTOR 
j UNIQUE ERROR NUMBER 
j ADDRESS Or ERROR MESSAGE 
TO ERROR 
{ARE WE DONE 
I CHECK EPS 
j OK GO ON 
{ALL ERRORS 



.w TO EMT VECTOR 

{UNIQUE ERROR 



» NO GO 



. TO TRAP 

lUNIQUE ERROR NUMBER 
{ADDRESS OF ERROR MESSAGE 
TO ERROR 
;RESTORE VECTOR 



TSF£2 



JMP 



ERROU 
.WORO 
RTT 



FIN22 



.122 
FPPERR 



{ALL ERRORS TO TRAP TO EMT VECTOR 
{UNIQUE ERROR NUMBER 
{ADDRESS OF TERROR MESSAGE 
{ODD ADDRESS TRAP 
{RETURN 



FIN22 

TSFP2 
{{*** 

{♦TES 

{{*** 

TST<25 



*v% **»**.-;. i + ******** + * + + * + ************** + + * > + *** + * + ** + ****#** 
T 25 TEST FDST SOP MODE 6 GR7 



000004 



100$: 



l*; 



2$: 



INC 

CLH 

MOV 
MOV 
MJV 
LOKN 

MCV 
MOV 
MOV 
"\\\\ 
1,1 Hv 

s irr- , ;~ 

••tov 

MOV 

CMP 
BED 

.wopi- 

, WORD 

••OH 
CMP 



*TESTN 
StfTRPFLG 

ae4, -csp) 

OTSF23.a*4 

4200, R 2 

P2 

^4,R5 

$1STL0C»R4 

i/1.77777,(R4)» 

i: -. % lnuJ 

ISI'l.UC 

[M 

^>4,R1 

<HSTtOC,R2 

CR2V.40 

2* 

125 
FPPERR 

Ml.l* 
R3.02O4 



INCREMENT TEST NUMBER 

CLEAR TRAP FLAG 

SAVE TIMEOUT VECTOR 

SETUP NEW VECTOR 

SETUP TO LOAD FPS 

SET FD-1 

INIT COUNTER 

SETUP POINTER TO TEST LOCATION 

INIT TEST LOCATION 

ARE WE DONE 

TEST INSTRUCTION 
GET FPS 
INIT COUNTER 

{SETUP POINTER TO DATA 
IS DATA CORRECT 
YES GO ON 

ALL ERRORS TO TRAP TO EMI VECTOR 
UNIQUE ERROR NUMBER 
ADDRESS OF ERROR MESSAGE 
{NO GO TO ERROR 

ARE WE OONE 
CHECK FPS 



GLOBAL ARIAS 
KDJ11A.MAC 



MAQY11 
15-MAR 84 



30A'1052) 
15:51 



15 



MAR- 64 
T25 



H4 

Yf.ST F031 *OP MODE 6 GR7 



SEQ 0046 



u J K5 
2176 
217 7 
2178 
2179 

pieo 

2181 
2182 
2183 
2184 
2185 
2186 
2187 
2188 
2189 
2.190 
2191 
2192 
2193 
2194 
2195 
2196 
2197 
2198 
2199 
2200 
2201 
2202 
2203 
2204 
2205 
2206 
2207 
2208 
2209 
2210 
22U 
2212 
2213 
2214 
2215 
2216 
221/ 
2218 
2219 
2220 
2221 
2222 
2223 
2224 
2225 
2226 
222 / 
2228 
2229 
2230 



007 724 
007726 

007730 
007732 



001403 
104000 
000124 
002013 



007734 012637 000004 



007740 000167 000010 



007744 
007744 
007746 
007750 

00 7 752 
007754 

007754 



007754 
007 754 
007 760 
007764 
007 770 
007776 
010002 
010004 
010010 
010014 
010020 
03.0022 
010030 
010034 
010036 
010042 
010046 
010052 

010054 
010056 
010060 
C 10062 
010064 
010070 

010072 
010074 

010076 
010100 
010104 
010110 
010112 
010114 



104000 
000125 
002013 

000006 



005267 
005037 
013746 
01273/ 
012702 
170102 
012705 
012704 
012724 
077503 
012737 
170477 
170203 
012702 
012701 
022227 
001403 

104000 
000126 
002013 
07710/ 

02222 7 
001403 

104000 
000127 
002013 
012/01 
02222 7 
0014O3 
104000 
000130 



l'?1024 
002122 
000004 
010146 
000200 

000010 
001136 
177777 

001136 

171112 

001136 
000004 
000000 



001136 



000003 
177777 



3$} 



TSF23: 



BED 
E»'«0»* 

, WOHO 
. wnno 

MOV 



JhP 



. W'JRU 
.WORD 

RTT 



3 J 

124 
FPPERR 

(SP)»,8#4 



FIN23 



125 
FPPERR 



» NO GO 



j OK GO ON 

jALL ERRORS TO TRAP TO EMT VECTOR 
t UNIQUE ERROR NUMBER 
i ADDRESS OF ERROR MESSAGE 
TO ERROR 
I RESTORE VECTOR 



F1W23: 



TSFP24: 

}*TEST 2b 

3T26: 

INC 

p.a 

hOv 

000004 KOV 

MOV 
LDFPS 

r iov 

HOV 
100$: MCK 

sou 

001146 MOV 

Ct RO 

:- n ps 

MOV 

MOV 

1$; CMP 

BKO 



{ALL ERRORS TO TRAP TO EMT VECTOR 
{UNIQUE ERROR NUMBER 
i ADDRESS OF ERROR MESSAGE 
I ODD ADDRESS TRAP 



* 7 *****************«**********+******* 4. ************ 

TEST EDST SOP MODE 7 GR7 



2$: 



SI: 

4*; 



.WOW 
.WOMO 
SiO'J 
'".'MP 

KILO 

F ^Tfi 

. UUMJ 
h'JV 

Oil- 
IJF I J 
t*;"il!liK 
, WOinU 



HESTN 
B#TRPF"LG 

9*4 , - ( SP ) 

0TSF24,S04 

*200,W2 

R2 

08. ,R5 

OTSTL0C.R4 

0177777.CR4). 

R5.100I 

0TSTL0C,S0TSTL0C*10 

3TSTLOC*10 

R3 

0TSTI..0C.R2 

C4,R1 

CR2)»,00 

2$ 



126 

FPPERR 

Rl .1 * 

lR2)*,0TSTLUC 

3$ 



127 
FPPt'RH 

03, Rl 

(R2)* ,0177777 

5$ 



130 



INCREMENT TEST NUMBER 

CLEAR TRAP FLAG 

SAVE TIMEOUT VECTOR 

SETUP NEW VECTOR 

SETUP TO LOAD FPS 

SET FD-1 

INIT COUNTER 

SETUP TEST LOCATION POINTER 

INIT TEST LOCATION 

ARE WE DONE 

INIT TEST LOCATION 

***THST INSTRUCTION*** 

GET FPS 

SETUP POINTER TO DATA 

INIT COUNTER 

IS DATA CORRECT 

YES GO ON 

NO, GO TO ERROR 

ALL ERRORS TO TRAP TO EMT VECTOR 

UNIQUE ERROR NUMBER 

ADDRESS Of ERROR MESSAGE 

ARE WE DONE 

IS DATA CORRECT 

YES GO ON 

NO, GO TO ERROR 

ALL ERRORS TU TRAP TO EMT VECTOR 

LMIQUE ERROR NUMBER 

AD0RES5 OF ERROR MESSAGE 

INIT COUNTER 

IS DATA CORRECT 

YES GO ON 
;Al.l ERRORS TO TRAP TO EMT VECTOR 
jUNIQUl ERROR NUMBER 



14 



GLOBAL 


ARK AS 


MACYll 


30AC105, 


KOJ11A. 


MAC 15-MAR-84 


15:51 


2231 


010116 


002013 




2232 








2233 


010120 


077107 




2234 


010122 


020327 


000204 


2235 


010126 


001403 




2236 


010130 


104000 




2237 


010132 


000131 




2233 


010134 


002013 




2239 








2240 


010136 


012637 


000004 


2241 








2242 








224 3 


010142 


00016V 


000010 


2244 








224 5 


010146 






2246 


010146 


104000 




224 7 


010150 


000132 




2248 


010152 


002013 




2249 








2250 


010154 


000006 




2251 








22f>2 


010156 






2253 








2254 


010156 






2255 








2256 








2257 








2258 


010156 






2259 


010156 


00526/ 


170622 


2260 


010162 


005037 


002122 


2261 


010166 


005002 




2262 


01C170 


170102 




2263 


010172 


012705 


000004 


2264 


010176 


012704 


001136 


2265 


010202 


012724 


1/77/7 


2266 


010206 


07/503 




226 7 


010210 


012 702 


00113fi 


2268 


010214 


170422 




^269 


010216 


IV 020 3 




22 70 


0X0220 


020227 


001142 


2271 
2272 
22/3 


010224 


001403 




0102?6 


104000 




22/4 


010230 


000133 




2275 


010252 


002013 




2276 


010234 


012/02 


001136 


c'27/ 


010240 


012701 


00000 c' 


2278 


010244 


02222/ 


oooooo 


2279 


010250 


001403 




2280 








228 1 


010252 


104000 




2282 


010254 


000134 




228 5 


010256 


002013 




2284 


010260 


0/710 7 




2285 


01C262 


012701 


000002 


2286 


010266 


02222 7 


17777/ 



15 -MAR -34 
126 



5* 



16:56 PaG£ 4 7 

TES* r-DST SOP MODE 7 GR7 

, WOUO FPPERR 



SEO 004 7 



6$ 



T5F24 



SOB 
LMP 

Dfr.0 

, wono 

. WORD 



JMP 



ENROL 
.WORD 
. WOPD 

RVT 



HI, 4$ 
R 3, 0204 

131 
FPPERR 

(SP)*.6)04 



FIN24 



132 
FPPERR 



l ADDRESS OF ERROR MESSAGE 
i NO GO TO ERROR 
{ ARE WE DONE 
j CHECK FPS 
I OK GO ON 

jALL ERRORS TO TRAP TO EMT VECTOR 
i UNIQUE ERROR NUMBER 
{ADDRESS OF ERROR MESSAGE 
}N0 GO TO ERROR 

{RESTORE VECTOR 



{ODD 



I ALL ERRORS TO I RAH TO EMT VECTOR 
j UNIQUE ERROR NUMBER 
{ADDRESS OF ERROR MESSAGE 
ADDRESS TRAP 
I 



F1N24 



TSFP25; 






j j********,** A 4 ********************* 


i*rtsi 


2/ 


TEST CLRF 


{ : +*«*+** + ^ *.'********************* * 


TST27- 








Ir\'»: 


tlfcSTN 




CLR 


QOTRPFLG 




CAM 


L<2 




LOK°S 


y? 




MOV 


•L*4,R5 




MOV 


crSTL0C,R4 


100V: 


MOV 


01 ///77,CR4)» 




SU» 


R'-.lOO* 




MOV 


MSTL0C.R2 




CLf: 1 - 


CR.'U 




fiTFP;; 


R3 




CM* 1 


H2,0TSTL0C*4 




BfcU 


1$ 




EHkOH 






MOHV 


133 




. UVM'O 


FPPERR 


1*: 


MOV 


tfTfiTl 0C.R2 




MOV 


a.\Kl 


2$: 


Ctf- 


(H2)»,00 




BF(? 


3$ 




tHROH 






.W2ff'J 


I'U 




. WO^D 


Y PPERR 


31: 


-,(>1 


in. ,2i 




MOV 


cj.Rl 


4$: 


CMP 


IR2)» ,017/777 



****************************** 



********+**> 



1* ***** * ******* 



TEST NUMBER 
H..AG 

GAD FPS 



INf ■<: .'..■.. 

CL ' ; - v 

51 • 

SE . . ..*0 

IN1T LOUNTER 

SETUP POINTER TO TEST LOCATION 

INIT TEST LOCATION 

ARE WE DONE 

SETUP POINTER TO DATA 

TEST INSTRUCTION 
GET FPS 
IS R2 CORRECT 
YES GO ON 
NO, GO TO ERROR 

ALl ERRORS TO TRAP TO EMT VECTOP 
UNICUE ERROR NUMBER 
ADDRESS OF ERROR MESSAGE 
SETUP POINTER TO DATA 
INIT COUNTER 
IS DATA CORRECT 
YFS GO ON 
NO. GO TO ERROR 

AlL ERRORS TO TRAP TO EMT VECTOR 
UNIQUE ERROR NUMBER 
MJORESS OF ERROR MESSAGE 
ARE WE DONE 
INIT COUNTER 
IS DATA CORRECT 



J 4 



GLOBAL AREAS 
KDJ11A.MAC 



MACYll 

15 -MAR -84 



30AC10J2) 
15:51 



15-MAR-84 
T27 



,*iO PAGE 48 
'KST CLRF 



SEU 0046 



^87 
2288 
2289 
2290 
2291 
2292 
2293 
2294 
2295 
2296 
229? 
2298 
2299 
2300 
2301 
2302 
2303 
2304 
2305 
2306 
2307 
2308 
2309 
2310 
2311 
2312 
2313 
2314 
2315 
2316 
2317 
2318 
2319 
2320 
2321 
2322 
2323 
2324 
2325 
2326 
232/ 
2328 
2329 
2330 
2331 
2332 
2333 
2334 
2335 
2336 
2337 
2338 
2339 
2340 
2341 
2342 



010272 001403 



010274 
010276 
010300 
010302 
010304 
010310 

010312 
010314 
010316 
010320 



010320 



010320 
010320 
010324 
010330 
010332 
010334 
010340 
010342 
010346 

010350 
010352 
010354 
010356 
010362 
01O366 
010372 
010376 
010400 
010404 

010406 
010410 
010412 
010414 
010420 
010424 
0104 30 
010434 
0104 36 
010442 

010444 

010446 
010450 
010452 
010456 



104000 
000135 
002013 
077107 
020327 
001403 

104000 
000136 
002013 



00526 7 
005037 
005004 
170104 
170567 
170203 
02032 7 
001403 

104000 
000137 
002013 
012704 
012702 
004767 
170537 
170203 
020327 
001403 

104000 
000140 
002013 
012704 
012702 
004 767 
170567 
170203 
020527 
001403 

104000 
000141 
002013 
012 700 
012 702 



000004 



1 70460 
002122 



000300 
000004 



010640 
010670 
000224 
010650 

000010 



010650 
010700 
000166 
000224 

000000 



6« 



ft.-.U 
ERROR 

. uortc 

. WORD 

SOU 
CMP 
BEU' 

ERROR 

. WORD 
. WORD 



i,$ 



FPPERR 
Rl.flt 
R3.04 
6? 



j 36 
FPPHRR 



jYES GO ON 

I NO GO TO ERROR 

jALL ERRORS TO TRAP TO EMT VECTOR 

j UNIQUE ERROR NUMBER 

j ADDRESS OF ERROR MESSAGE 

j ARE WE DONE 

i CHECK FPS 

;0K GO ON 

l NO, GO TO ERROR 

j ALL ERRORS TO TRAP TO EMT VECTOR 

{UNIQUE ERROR NUMBER 

j ADDRESS OF ERROR MESSAGE 



tsk^:- 

:*1E5'" 30 

j ; ■ k t> ********* 
TS'l3<V 

INC 
CLR 
"' R 
LUFPS 

TSTF 

STEPS 
'MP 



lRRCR 
,WGRC 
.WORD 

>:ov 

MOV 



I EST TSTF AND "STD 

*<. i *** **************************** ****** *** ***.«.** + 



1$ 



2* 



010660 
010710 



3*; 



TSTF 

S'FPS 
CMP 

r .-:o 

ERROR 

.WORD 

.WORD 

MOV 

MOV 

JSR 

TSTF 

STFPS 

CMP 

BEQ 

ERROR 

.WORD 
.WORD 
MOV 
MOV 



1'i[ T>TN 

;«rRPFLG 

I'M 
R* 

:S' l 6D0 
1:1 

» .< , M 
1* 



i37 
FPPERS 

4TS26D0.R4 

♦TS2S03.R2 

PC.CHEC26 

&*"S26D1 

R3 

R3,n0 

2* 



140 
FPPERR 

0TS26D1.R4 

0TS26D4.R2 

PC,CHEC26 

TS26D2 

R3 

R3,00 

3$ 



141 

F'PPEMR 
OTS26D2.R4 
4TS26D5.R2 



INCREMENT TEST NUMBER 

CLEAR TRAP FLAG 

SETUP TO LOAD FPS 

SET FD-0 

***rfc5T INSTRUCTION*** 

GET I- PS 

CHECK EPS 

OK GO ON 

NO, GO 10 ERROR 

ALL ERRORS TO TRAP TO EMT VECTOR 

UNIQUE ERROR NL*i8ER 

ADDRESS Of ERROR MESSAGE 

SETUP POINTERS TO DATA 

CHECK If DATm IS CORRECT 

***TEST INSTRUCTION*** 

GET FPS 

CHECK FPS 

OK GO ON 

NO, GO TO ERROR 

ALL ERRORS TO TRAP TO EMf VECTOR 

UNIQUE ERROR NUMBER 

ADDRESS OF ERROR MESSAGE 

SETUP POINTERS TO DATA 

CHECK IF DATA IS CORRECT 

***TEST INSTRUCTION*** 

GET FPS 

CHECK FPS 

OK GO ON 

NO, GO TO ERROR 

ALL ERRORS TO TRAP TO EMI VECTOR 

UNIQUE ERROR NUMBER 

ADDRESS OF ERROR MESSAGE 

SETUP POINTERS TO DATA 



I<4 



GLOBAu AREAS 
KDJ11A.MAC 



MACY11 30AC1052) 15-MAR-84 16;56 PA( 
15-MAR 84 15:51 T30 TEST T« 



it 49 

iTF AND 



TSTD 



5EQ 0049 



2343 
2344 
2345 
2346 
234 7 
2346 
2349 
2350 
2351 
2352 
2353 
2354 
2355 
2356 
2357 
2356 
2359 
2360 
2361 
2362 
23n3 
2364 
2365 
2366 
2367 
2360 
2369 
2370 
2371 
2372 
2373 
2374 
2375 
23 76 

237 7 
2378 
2379 
2380 
2361 
2302 
2383 
2384 
2385 
2386 

238 7 
2388 
2389 
2390 
2391 
2392 
2393 
2394 
2395 
2396 
239/ 
2398 



010462 
010466 
0104/2 
010474 
010500 
010502 
010506 

010510 
010512 
010514 
010516 
010522 
010526 
010532 
010536 
010540 
010544 

010546 
010550 
010552 
010554 
010560 
010564 
010570 
010574 
010576 
010602 
01060" 
010606 
010610 

010612 



010616 
010622 
010624 
010626 
010630 
010632 

010634 
010636 

010640 
010642 

010644 
010646 
010650 
010652 
010654 
010656 



004767 
012704 
170104 
170537 
170203 
020327 
001403 

104000 
000142 
002013 
012704 
012702 
004767 
170567 
1702C3 
020327 
001403 

104000 
000143 
002013 
012704 
012702 
004 767 
170567 
170203 
020327 
001403 
104000 
000144 
002013 



012701 
022422 
001403 
104000 
000145 
002013 

077106 
000207 

00017 7 
177777 
177777 
17 777 7 
1.77777 

oooooo 

000000 

oooooo 



000130 
000200 

010640 

000204 



010640 
010670 
000064 
000112 

000210 



010650 
010700 
000026 
000064 

000200 



010612 000167 000102 



000004 



4$: 



5V: 



6*: 



JSR 

MCV 

LDKPS 

TSTD 

STFPS 

CMP 

B^Q 

ERROR 

, WORD 

.WORD 

MOV 

MOV 

JSR 

TSTD 

STFPS 

CMP 

BEQ 

ERROR 

.WORD 

.WORD 

MOV 

MOV 

JSR 

TSTD 

STEPS 

CMP 

BEG 

ERROR 

.WORD 

.WORD 



JMP 



PC.CHEC26 

0200, R4 

R4 

&&TS26Q0 

R3 

R3,V>204 

4$ 



142 

FPPCRR 

0TS26D0,R4 

4TS26D3.R2 

PC.CHEC26 

TS26D1 

R3 

R3.021O 

5* 



143 

FPPERR 

*rs26Dl,R4 

0TS26U4.R2 

PC.CHEC26 

TS26D2 

R3 

R3,O2O0 

6$ 

144 
FPPERR 



FIN26 



CORRECT 
SETUP TO LOAD EPS 
SET l-O-l 

♦♦♦TEST INSTRUCTION*** 
GET FPS 
CHECK FPS 
OK GO ON 
NO, GO TO ERROR 

ALL ERRORS TO TRAP TO EMT VECTOR 
UNIQUE ERROR NUMBER 
ADDRESS OF ERROR MESSAGE 
SETUP POINTERS TO DATA 

CHECK IF OATA IS CORRECT 

♦♦♦TEST INSTRUCTION*** 

GET FPS 

CHECK FPS 

OK GO ON 

NO, GO TO ERROR 

ALL ERRORS TO TRAP TO EMT VECTOR 

UNIQlE ERROR NUMGER 

ADDRESS OF ERROR MESSAGE 

SETUP POINTERS TO DATA 

CHECK IF DATA IS CORRECT 
♦♦•TEST INSTRUCTION 
GET FPS 
CHECK FPS 
OK GO ON 

ALL ERRORS 10 TRAP TO EMT VECTOR 
UNIQUE ERROR NUM8ER 
ADDRESS OF ERROR MESSAGE 
jNO GO TO ERROR 



CHEC26: 


MOV 


*4,Rl 






jINIT COUNTER 


1$: 


CMP 


CR4)*,(R2)» 






{IS DATA CORRECT 




BEQ 


2! 






;YES GO ON 




ERROR 








;ALL ERRORS TO TRAP TO EMT VECTOR 




.WORD 


145 






{UNIQUE. ERROR NUMBER 




.WORD 


FPPERR 






j ADDRESS OF ERROR MESSAGE 








iNO 


GO 


TO ERROR 


2$: 


SOB 


R1.1S 






;ARE UE DONE 




RT5 


PC 






{RETURN 


TS26D0; 


.WORD 
.WORD 
.WORD 
.WORD 


1/7 

177777 
17 7 7 7' 

1/7/7/ 








TS2001: 


. WORO 
.WORD 
. WORD 
.WORD 


177777 













L4 



GLOBAL ARFAS 
KDJ11A.MAC 



2399 

2400 
2401 
2402 
2403 
2404 
2405 
2406 
2407 
2408 
2409 
2410 
2411 
2412 
2413 
2414 
2415 
2416 
2417 

24ie 

2419 
2420 
2421 
2422 
2423 
2424 
2425 
2426 
2427 
c'423 
2429 
2430 
24 31 
2432 
24 33 
2434 
2435 
24 36 

243 7 
24 38 
24 39 
2440 
2441 
2442 
2443 
2444 
2445 
2446 

244 7 
2448 
2449 
2450 
2451 
2452 

245 3 
2454 



010660 
010662 
010664 
010666 
010670 
010672 
010674 
01 or, 76 
010/uO 
010702 
010704 
010706 
010710 
010712 
010714 
010716 
010720 

010720 



010720 
010720 
010724 
010730 
010732 
010734 
010740 
010744 
010750 
C10752 
010754 
010760 
010762 
010764 
010770 

010772 
010 774 
010776 
011000 
011004 
011010 
011014 

011016 

011020 
011022 
011024 

011030 
011032 
011034 
011040 



MACY11 30AC1052) 
15 -MAR 84 15:51 

077777 
000000 
000000 
000000 
000177 
177777 
177777 
177777 
177777 
000000 
000000 
000000 
077777 
^"10000 
.0000 



15-MAR 84 16 : 58 PAGE 50 

T30 TEST TSTF AND TSTD 



SEQ 0050 



00526 7 
005037 
005005 
170105 
012701 
012704 
012703 
012324 
077102 
012705 
170615 
170203 
020527 
001403 

104000 
000146 
002013 
012702 
004 76 7 
020327 
001403 

104000 

000147 
002013 
012705 
170625 
170203 
020527 
001403 



170060 
002122 



000014 
001136 
011204 



001136 
001136 



011234 
000152 
000000 



001146 



001152 



7S26D2: 


.WORO 


777 n 




.WORD 







.WORD 







.WORD 





TS26D3: 


,WORD 


177 




.WORD 


177777 




.WORD 


177777 




.WORD 


177777 


TS26D4: 


.WORD 


177777 




.WORD 







.WORD 







.WORD 





TS26D5: 


.WORD 


77777 




.WORD 







.WORD 







.WORD 





FIN26: 






TSFP27! 






• I*************************** 


;*TEST 


31 


TEST ABSF 


. j ************************** * 


TST31: 








INC 


•TESTN 




CLR 


8#TRPFLG 




CLR 


R5 




LDrps 


R5 




MOV 


*12. ,R1 




MOV 


OTSTL0C.R4 




MOV 


0TS27D0.R3 


100$: 


MOV 


CR3)*,(R4)» 




SOB 


Rl.lOOf 




MOV 


0TSTL0C.R5 




ABSF 


(R5> 




STFPS 


R3 




CMP 


R5,OTSTL0C 




BEQ 


I* 




ERROR 






.WORD 


146 




.WORD 


FPPERR 


1$: 


MOV 


OTS27D3.R2 




JSR 


PC.CHEC27 




CMP 


R3,#0 




BEQ 


2$ 




FRROR 






.WORD 


14 7 




.WORD 


FPPERR 


2i\ 


MOV 


0TSTLOC*1O,R5 




A5SF 


(R5)» 




STFPS 


R3 




CMP 


R5.OTSTL0CU4 




BEQ 


3$ 



011042 104000 



ERROR 



INCREMENT TEST NUMBER 

CLEAR TRAP FLAG 

SETUP TO LOAD FPS 

SET FD-0 

INIT COUNTER 

SETUP POINTER TO TEST LOCATION 

SETUP POINTER TO TEST VALUE 

INIT TEST LOCATION 

ARE WE DONE 

SETUP POINTER TO DATA 

***TFST INSTRUCTION*** 

GET FPS 

IS R5 CORRECT 

YES GO ON 

NO, GO TO ERROR 

ALL ERRORS TO TRAP TO EMT VECTOR 

UNIQUf ERROR NUMBER 

ADDRESS OF ERROR MESSAGE 

SETUP POINTER TO DATA 

CHECK IF DATA IS CORRECT 

CHECK FPS 

OK GO ON 

NO. GO TO ERROR 

ALL ERRORS TO TRAP TO EMT VECTOR 

UNIQUE ERROR NUMBER 

ADDRESS OF ERROR MESSAGE 

SETUP POINTER TO DATA 

♦♦♦TEST INSTRUCTION*** 

GET FPS 

IS R5 CORRECT 

YES GO ON 

NO, GO TO ERROR 

ALL ERRORS TO TRAP TO EMT VECTOR 



M4 



GLOBAL 
KDJllA. 


AREAS MACYll 
MAC 15 -MAR -84 


30AC£<j>52) 


15 -MAR -84 16 


: se PAg 

TEST AB 


If 51 


2455 


011044 


000150 






.UOPD 


150 


2456 


011046 


002013 






.WORD 


FPPERR 


2457 


011050 


012705 


001146 


3$: 


MOV 


0TSTL0C*10,R5 


2458 


011054 


012702 


011244 




MOV 


0TS27D4.R2 


2459 


011060 


004767 


000076 




JSR 


PC.CHEC27 


2460 


011064 


020327 


000000 




CMP 


R3,$0 


2461 


011070 


001403 






BEQ 


4$ 


2462 














2463 


011072 


104000 






ERROR 




2464 


011074 


000151 






.WORD 


151 


2465 


011076 


002013 






.WORD 


FPPERR 


2466 


011100 


012705 


001136 


4$: 


MOV 


0TSTLOC.R5 


2467 


011104 


170665 


000020 




ABSF 


20CR5) 


2466 


011110 


170203 






STFPS 


R3 


2469 


011112 


020527 


001136 




CMP 


R5.0TSTLOC 


2470 


011116 


001403 






BEQ 


5$ 


24 71 














2472 


011120 


104000 






ERROR 




2473 


01U22 


000152 






.WORD 


152 


24 74 


011124 


002013 






.WORD 


FPPERR 


2475 


011126 


012^05 


001156 


5$t 


MOV 


$TSTL0C*20,R5 


24 76 


011132 


012702 


011254 




MOV 


0TS27D5.R2 


2477 


011136 


004767 


000020 




JSR 


PC.CHEC27 


24 76 


011142 


020327 


000004 




CMP 


R3,#4 


2479 


011146 


001403 






BEQ 


6$ 


2460 














2481 


011150 


104000 






ERROR 




2482 


011152 


000153 






.WORD 


153 


2483 


011154 


002013 






.WORD 


FPPERR 


2484 


011156 






65: 






2485 














20 86 








t 






248 7 


011156 


000167 


000102 




JMP 


FIN27 


2488 








l 






2489 


011162 


012701 


000004 


CHEC27? 


MOV 


04, Rl 


2490 


011166 


022522 




1$: 


CMP 


(R5)*.<R2)* 


2491 


0U170 


001403 






BEQ 


2$ 


2492 














2493 


011172 


104000 






ERROR 




2494 


011174 


000154 






.WORD 


154 


2495 


011176 


002013 






.WORD 


FPPERR 


2496 


011200 


077106 




2$: 


SOB 


Rl.l$ 


2497 


011202 


000207 






RTS 


PC 


2498 








I 






2499 


011204 


177777 




TS27D0: 


.WORD 


17777/ 


2500 


011206 


177777 






.WORD 


177777 


2501 


011210 


177777 






.WORD 


177777 


2503 


011212 


177777 






.WORD 


177777 


2503 


011214 


000377 




TS27D1: 


.WORD 


377 


2504 


011216 


175436 






.WORD 


175436 


2505 


011220 


136477 






.WORD 


136477 


2506 


011222 


000001 






.WORD 


1 


2507 


011224 


000177 




TS27D2; 


.WORD 


177 


2508 


011226 


1754 36 






.WORD 


175436 


2509 


011230 


136477 






.WORD 


1364 77 


2510 


011232 


000001 






.WORD 


1 



SEQ 0051 



UNIQUE ERROR NUMBER 
ADDRESS OF ERROR MESSAGE 
SETUP POINTER TO DATA 

CHECK IF DATA IS CORRECT 

CHECK FPS 

OK GO ON 

NO, GO TO ERROR 

ALL ERRORS TO TRAP TO EMT VECTOR 

UNIQUE ERROR NUMBER 

ADDRESS OF ERROR MESSAGE 

SETUP POINTER TO DATA 

♦♦♦TEST INSTRUCTION*** 

GET FPS 

IS R5 CORRECT 

YES GO ON 

NO. GO TO ERROR 

ALL ERRORS TO TRAP TO EMT VECTOR 

UNIQUE ERROR NUMBER 

ADDRESS OF ERROR MESSAGE 

SETUP POINTERS TO OATH 

CHECK IF DATA IS CORRECT 

CHECK FPS 

OK GO ON 

NO. GO TO ERROR 

ALL ERRORS TO TRAP TO EMT VECTOR 

UNIQUE ERROR NUMBER 

ADDRESS OF ERROR MESSAGE 



jINIT COUNTER 

j IS DATA CORRECT 

;YES GO ON 

;N0. GO TO ERROR 

{ALL ERRORS TO TRAP TO EMT VECTOR 

{UNIQUE ERROR NUMBER 

{ADDRESS OF ERROR MESSAGE 

{ARE WE DONE 

{RETURN 



N4 



GLOBAL AREAS 
KOJ11A.MAC 



2511 
2512 
2513 
2514 
2515 
2516 
2517 
2518 
2519 
2520 
2521 
2522 
2323 
25c4 
2525 
2526 
2527 
2528 
2529 
2530 

*531 

25 52 
25i3 
2534 
2535 
2536 
2537 
2538 
2539 
2540 
2541 
2542 
2543 
2544 
2545 
2546 
2547 
2543 
2549 
2550 
2551 
2552 
2553 
2554 
2555 
2556 
255/ 
2558 
2559 
2560 
2561 
2562 
2563 
25t-** 
256V 
25ti 



011234 
011236 

011240 
011242 
011244 
011246 
011250 
011252 
01125-4 
011256 
011260 
011262 
011264 

011264 



011264 
011264 
03 1270 
011274 
011300 
011? r >2 
Oil. 6 
011312 
011316 
011320 
011322 
011326 
011330 
011332 
011336 

011340 
011342 
011344 
011346 

011352 
011356 
011362 

011364 
011366 

011370 
011372 
011376 
01i400 
011402 
011406 

Oil*' iO 
01.412 
011414 
011416 
011422 



MACY11 30AC1052) 
15-MAR-84 15:51 

077777 

177777 
177777 
177777 
000377 
1/5436 
136477 
000001 
000000 
000000 
136477 
000001 



005267 
005037 
012705 
170105 
012701 
012704 
012703 
012324 
077102 
012705 
170615 
170203 
020527 
001403 

104000 
000155 
002013 
0x2702 

004 767 
020327 
001403 

104000 
000156 
002013 
012705 

170625 
170203 
020527 
001403 

104000 
00015/ 
002013 
012/05 
012702 



167514 
002122 
000200 

000014 
001136 
011552 



001136 



001136 



011602 
000152 
000200 



^01146 
001156 



001146 
011612 



15 


-MAR-84 16 


j 58 PAC 


iE 52 




T31 


TEST AE 


5SF 




TS27D3: 


.WORD 


77777 






.WORD 


177777 






.WORD 


177777 






.WORD 


177777 




TS27D4- 


.WORD 


377 






.WORD 


175436 






.WORD 


136477 






.WORD 


1 




TS27D5: 


.WORD 









.WORD 









.WORD 


136477 






.WORD 


1 




FIN27: 








TSFP30: 








. . ***^** ******************** * 




{♦TEST 


32 


TEST ABSD 




; **************************** 




TST32: 










INC 


*TESTN 






CLR 


B0TRPFLG 






MOV 


4200, R5 






LDFPS 


R5 






MOV 


012., Rl 






MOV 


0TSTLOC.R4 






MOV 


0TS3ODO,R3 




100$: 


MOV 


CR3)f.CR4>* 






SOB 


Rl,100$ 






MOV 


0TSTLOC.R5 






ABSD 


(R5) 






STFPS 


R3 






CMP 


R5.0TSTL0C 






BEQ 


1* 






ERROR 








.WORD 


155 






.WORD 


FPPERR 




1$: 


MOV 


0TS3CD3.R2 






JSR 


PC.CHEC30 






CMP 


R3.02OO 






BEO 


2$ 






ERROR 








.WORD 


156 






.WORD 


FPPERR 




2$: 


MOV 


0TSTLOC*1G,R5 






ABSD 


CR5). 






srrps 


R3 






CMP 


R5.0TSTLOO2O 






BEQ 


3$ 






ERROR 








.WORD 


15/ 






.WORD 


FPPERR 




3$: 


MOV 


0TSTIOO1O.R5 






MOV 


0TS30D4.R2 



SEQ O052 



TO 
r 



TEST LOCATION 
TEST VALUE 



i INCREMENT TEST NUMBER 
CLEAR TRAP FLAG 
SETUP TO LOAD FPS 
SET FD-1 
INIT COUNTER 
SETUP POINTER 
SETUP POINTER 
INIT TEST LOCATION 
ARE WE DONE 
SETUP POINTER TO DATA 
***TEST INSTRUCTION*** 
GET FPS 
IS R5 CORRECT 
YES GO ON 
NO, GO TO ERROR 

ALL ERRORS TO TRAP to EMT VECTOR 
UNIQUE ERROR NUMBER 
ADDRESS OF ERROR MESSAGE 
SETUP POINTER TO DATA 
CHECK IF DATA IS CORRECT 
CHECK FPS 
OK GO ON 
NO. GO TO ERROR 

ALL ERRORS TO TRAP TO EMT VECTOR 
UNIQUE ERROR NUMBER 
ADDRESS OF ERROR MESSAGE 
SETUP POINTER TO DATA 
***TEST INSTRUCTION*** 
GET FPS 
IS R5 C0RREC1 
YES GO ON 
NO, GO TO ERROR 

ALL ERRORS TO TRAP TO TMT VECTOR 
UNIQUE ERROR NUMBER 
ADDRESS OF ERROR M* S'.iAliE 
SETUP POINTEPS TO DATA 



•35 



GLOGAl areas 
KDJ11A.MAC 



MACU1 30AC 1052) 
15 -MAR 84 15^51 



15-MAR 84 
T32 



16}58 PAGE 53 
TEST ABSD 



SEU 0053 



2567 
2569 
2569 
2570 
2571 
2572 
2573 
2574 
2575 
2576 

257 7 

2578 
2579 
2580 
2581 
2582 
2583 
2584 
2585 
2586 

258 7 
2588 
2589 
2590 
259V 
2592 
2593 
2594 
2595 
2596 
2597 
2598 
2599 
2600 
2601 
2602 
2603 
2604 
2605 
2606 
2607 
2608 
2609 
2610 
2611 
2612 
2613 
2614 
2615 
2616 
2617 
2618 
2619 
2620 
2621 
2622 



011426 
011432 

011436 

011440 
011442 
011444 
011446 
011452 
011456 
011460 
011464 

011466 
011470 
011472 
011474 
011500 
011504 
011510 
011514 

011516 
011520 
011522 
011524 



011530 
011534 
011536 

011540 
0J1542 
011544 
0U546 
011550 

011552 
011554 
011556 
011560 
011562 
011564 
011566 
011570 
011572 
011574 
0115/6 
011600 
011602 
011604 
0116U6 
011610 
011612 



004767 
02032 7 
001403 

104 OOO 
000160 
002013 
012705 
170665 
170203 
020527 
001403 

104000 
000161 
002013 
012705 
012702 
004767 
020327 
001403 

104000 
000162 
002013 



011524 0O0167 



012'01 
022522 
001403 

104000 
000163 
002013 
077106 
000207 

177777 

177777 
177777 
177777 
000377 
175436 
136477 
000001 
000177 
1754 36 
1 564 7 7 
000001 
077 777 
177777 
17 7 7 7 7 
17 7/77 
0005/7 



000076 
000200 



001136 
000020 

001136 



00M56 
0U622 
000020 
000204 



0OD102 
000004 



4$ 



5$ 



6*: 



JSR 
CMP 
BEQ 

ERROR 

.WORD 

.WORD 

MOV 

ABSD 

STFPS 

CMP 

BEQ 

ERROR 

.WORD 

.WORD 

MOV 

MOV 

JSR 

CMP 

BEQ 

ERROR 
.WORD 
.WORD 



JMP 



PC.CHEC30 

R3.02OO 

4$ 



160 

FPPERR 

0TSTL0C.R5 

20CR5) 

R3 

R5.0TSTL0C 

5$ 



161 

FPPERR 

•TSTL0C»20,R5 

OTS3005.R2 

PC.CHEC30 

R 3, 0204 

61 



162 
FPPERR 



FIN30 



CHEC30? 


MOV 


*4,R1 


1$: 


CMP 


CR5)» I (R2)* 




BEQ 


2» 




ERROR 






.WORD 


163 




.WORD 


FPPERR 


2%i 


soe 


Ri.it 




RTS 


PC 


TS30D0; 


.WORD 


17 7 7 7 7 




.WORD 


17/77/ 




.WORD 


177777 




.WORD 


17 7 7 7 7 


TS30D1: 


.WORD 


3// 




.WORD 


1754 36 




.WORD 


1364 7 7 




.WORD 


1 


TS30D2 5 


.WORD 


177 




.WORD 


1 /54 36 




.WORD 


1364 7/ 




.WORD 


1 


TS30D3j 


.WORD 


inn 




.WORD 


17777/ 




.WORD 


1 7 7 7// 




.WORD 


177777 


TS30D4t 


♦ WQRD 


377 



CHECK IF DATA IS CORRECT 

CHECK FPS 

OK GO ON 

NO, GO TO ERROR 

ALL ERfc )RS TO TRAP TO EMI VECTOR 

UNIQUE ERNOR NUMBER 

ADDRESS OF ERROR MESSAGE 

SETUP POINTER TO DATA 

♦ ♦♦TEST INSTRUCTION*** 

GET FPS 

IS R5 CORRECT 

YES GO ON 

NO, GO TO ERROR 

ALL ERRORS TO TRAP TO EMT VECTOR 

WIQUE ERROR NLtiBER 

ADDRESS OF ERROR MESSAGE 

SETUP POINTERS TO DATA 

CHECK IF DATA IS CORRECT 

CHECK FPS 

OK GO ON 

NO, GO TO ERROR 

ALL ERRORS TO TRAP TO EMT VECTOR 

WIQUE ERROR N<J«ER 

ADDRESS OF ERROR MESSAGE 



lINIT COUNTER 

I IS DATA CORRECT 

»YES GO ON 

j NO, GO TO ERROR 

j ALL ERRORS TO TRAP TO EMT VECTOR 

l UN I QUE ERROR NUMBER 

lADDRESS Of ERROR MESSAGE 

j ARE WE DONE 

I RE TURN 



sbm.ASf: AS ismwmp 2 ' i5 



MAR f §| 



C!5 



l6 '*f S l P ft&§D 54 



5EQ 0054 



2623 
2624 

2625 
2626 
2627 
2628 
2629 
2630 
0631 
2632 
2633 
2634 
2635 
2636 
2637 
2638 
2639 
2640 
2641 
2642 
264 3 
2644 
2645 
2646 
264 7 
2648 
2649 
2650 
2651 
2652 
2653 
2654 
2655 
2656 
2657 
2656 
2659 
2660 
2661 
2662 
2663 
2664 
2665 
2666 
266 7 
2668 
2669 
26/0 
2671 
2672 
2673 
2674 
26 75 
2676 
26 / ? 
2676 



011614 
011616 
011620 
011622 
011624 
011626 
011630 
011632 

011632 



011632 
011632 
011636 
011642 
011646 
011654 
011660 
011662 
011666 
011670 
011672 
0116 M 
011676 
011702 
011704 
011706 
011710 

011712 

013716 
011722 
011724 
011726 
011730 

011732 
011736 
011742 
011744 
011746 
011750 

011752 
011754 



175436 

136477 

000001 
000000 
000000 
000000 
000000 



011764 

011764 
011766 
011770 



00526 7 
005037 
013746 
012737 
012702 
170102 
170527 
000240 
000240 
000240 
170203 
020327 
001403 
104 0O0 
000164 
002013 

012702 
02222 7 
001403 
104000 
C0O165 
002013 

012/01 
022227 
001403 
104 OOO 
000166 
002013 

077107 
012637 



104000 
000167 
002013 



167146 
002122 
00OO04 
011764 
000200 

000005 



000204 



000004 



011664 
000005 



000003 
000240 



000004 



011760 000167 000010 



TS30D5: 



FIN30; 
TSFP31: 



■♦TEST 



\ l •••• 

TST33: 



TSD31: 



1$: 



21: 

3<; 



4$: 



TSF315 



.WORD 
.WORD 

.WORD 
.WORD 
.WORD 
.WORD 
.WORD 



1754 36 
136477 

1 







33 



TEST FDST SOP MODE 2 GR7 



INC 

CL.R 

MOV 

MOV 

MOV 

LDFPS 

TSTD 

NOP 

NOP 

NOP 

STFPS 

CMP 

BE'J 

ERROR 

.WORD 

.WORD 

MOV 

CMP 

BEQ 

ERROR 

.WORD 

.WORD 

MOV 
CMP 
BEQ 
ERROR 

.WORD 
.WORD 

SOB 
MOV 



JMP 



£ RROR 
.WORD 
.WORD 



1TESTN 

©OTRPFLG 

B04, (SP) 

OTSF31.Q04 

0200, R2 

R2 

05 



R3 

R 3. 0204 

1$ 

K-4 

FPPERR 

0TSD3l>2,R2 

CR2)*,05 

2t 

165 
FPPERR 

03, Ri 

(R2)*,0240 
4$ 

166 
FPPERR 

R 1 , 3 1 
(SP)*,a04 



l INCREMENT TEST NUMBER 

{CLEAR TRAP FLAG 

{SAVE TIMFOUT VECTOR 

{SETUP NEW VECTOR 

I SETUP TO l OAD FPS 

{SET F'0-1 

i***TEST INSTRUCTION*** 



GET FPS 

CHf.CK FPS 

OK GO ON 

ALL ERRORS TO TRAP TO EMT VECTOR 

UNIQUE ERROR NUMBER 

ADOOESS OF ERROR MESSAGE 
{NO GO TO ERROR 

SETUP POINTER TO DATA 

IS DATA CORRECT 

YES GO ON 

ALL ERROflS TO TRAP TO EMT VECTOR 

WIQUE ERROR NEWBER 

ADDRESS OF ERROR MESSAGE 
jNO GO TO ERROR 

INIT COUNTER 

IS DATA CORRECT 

YES GO ON 

ALL ERRORS TO TRAP TO EMT VECTOR 

WIGUE ERROR NUMBER 

ADDRESS OF ERROR MESSAGE 
j NO GO TO ERROR 

ARE WE DONE 

RESTORE VECTOR 



FIN31 



16/ 
FPPERR 



{ODD 



{ALL ERRORS TO TRAP TO EMT VECTOR 
{UNIQUE ERROR NUMBER 
lAODRtSS OF ERROR MESSAGE 
TRAP 



ADDRESS 



&3m.Ar s i^msmv i * Mm m ^h^m^h? mode 2 u« 



SfcQ 0055 



2679 

2680 


011772 


000006 




2681 


011774 






263? 








2683 


011774 






2684 








2685 








2686 








2687 


011774 






2688 


011774 


005267 


16 7004 


2689 


012000 


005037 


002122 


2690 


012004 


005005 




2691 


012006 


170105 




2692 


012010 


012701 


000014 


2693 


012014 


012704 


001136 


2694 


012020 


012703 


012210 


2695 


012024 


012324 




2696 


012026 


077102 




2697 


012030 


170767 


167102 


2698 


012034 


170203 




2699 


012036 


012705 


001136 


2700 


012042 


012702 


012240 


2701 


012046 


004767 


000114 


2702 


012052 


02052/ 


000000 


2703 


012056 


001403 




2704 








2705 


012060 


104000 




2706 


012062 


OO0170 




2707 


012064 


002013 




2708 


012066 


170767 


167054 


2^09 


012072 


170203 




2710 


012074 


012705 


001146 


2711 


012100 


012702 


012250 


2712 


012104 


004767 


000056 


2713 


012110 


020327 


000010 


2714 


012114 


001403 




2715 








2 716 


012116 


104000 




2/17 


012120 


000171 




2718 


012122 


002013 




2719 


012124 


170767 


167C26 


2720 


012130 


170203 




2721 


012132 


012705 


001156 


2 J 22 


012136 


012702 


012260 


2723 


012142 


004767 


000020 


2724 


012146 


020327 


000004 


2/25 


012152 


001403 




2 726 








2727 


012154 


104000 




2 728 


012156 


0001 72 




2 729 


012160 


002013 




2730 


012162 






2731 








2 7*2 


012162 


00016 7 


000102 


2 73 3 








2/54 


01*166 


012/01 


000004 



RTT 



i 
FIN31 



I RETURN 



TSFP32j 






} j * + **** + ***** + + + ********* + *** <. 


{♦TEST 


34 


TEST NEGr 


1 ;*** — 


************************ 


TST34} 








INC 


ITESTN 




CLR 


QOTRPFLG 




CLR 


R5 




LDFPS 


R5 




MOV 


412. ,R1 




MOV 


OTSTL0C.R4 




MOV 


*TS32D0,R3 


100$: 


MOV 


CR3)*.CR4)» 




SOB 


R1.100I 




NEGF 


TSTLOC 




STFPS 


R3 




MOV 


07STLOC.R5 




MOV 


OTS32D3.R2 




JSR 


PC.CHEC32 




CMP 


R3.0C 




BEQ 


1* 




ERROR 






.WORD 


170 




.WORD 


FPPERR 


l$t 


NEGF 


TSTL0C*10 




STFPS 


R3 




MCV 


OTSTLOC*10,R5 




MOV 


0TS32D4.R2 




JSR 


PC.CHCC32 




CMP 


R3.01O 




BEQ 


2$ 




ERROR 






.WORD 


171 




.UORD 


FPPERR 


2*: 


NEGF 


TSTL0C*20 




STFPS 


R3 




MOV 


0TSTL0C»20,R5 




MOV 


*TS32D5,R2 




JSR 


PC.CHEC32 




CMP 


R3.G4 




3EU 


3$ 




ERROR 






.WORD 


172 




.WORD 


FPPERR 


3$: 








..MP 


FTN52 


CHEC32 


5 MOV 


04, Rl 



<1 ********************************* 
**************************+**++*** 



INCREMENT TEST NUMBER 

CLEAR TRAP FLAG 

SETUP TO LOAD FPS 

SET F'D-0 

INIT COUNTER 

SETUP POINTER TO TEST LOCATION 

SETUP POINTER TO TEST VALUE 

T.NIT TEST LOCATION 

ARE WE DONE 

***1E5T INSTRUCTION*** 

GET FPS 

SETUP POINTERS TO DATA 

CHECK IF DATA IS CORRECT 

CHECK FPS 

YES GO ON 

NO, CO TO ERROR 

ALL ERRORS TO TRAP TO EMT VECTOR 

UNIQUE ERROR NUJ1BER 

/0DRE3S OF ERROR MESSAGE 

■'•♦•TEST INSTRUCTION*** 

GET FPS 

SETUP POINTERS TO DATA 

O.-.CK IF DATA IS CORRECT 
Ci:ECK FPS 
t;.< GO ON 
NO. GO TO ERROR 

U'. ERRORS TO TRAP TO EMT VECTOR 
JN.IQUE ERROR NUMBER 
ADDRESS Qi' ERROR MESSAGE 
v**TE5T INSTRUCTION >♦* 
GET FPS 
SETUP POINTERS TO DATA 

CHECK IF DATA IS CORRECT 

CHECK FPS 

UK GO ON 

NO, GO TO ERROR 

ALL ERRORS TU TRAP TO EMT VECTOR 
s UN I QUE ERROR NUMBER 
j ADDRESS OF ERROR MESSAGE 



j INIT COUNTER 



E5 



GLOBAL ARFAS 
KDJUA.MAC 



2735 
2756 
273? 

2738 
2739 
2740 
2741 
2 742 
2743 
2744 
2745 



2748 
2749 
2750 
2751 
2752 
2753 
2754 
2755 
2756 
2757 
2758 
2759 
2760 
2 761 
2762 
2763 
2764 
2765 
2766 
2767 
2768 
2769 
2770 
2771 
2772 
2773 
2774 
2775 
2 776 
2777 
2778 
2779 
2 780 
2781 
2/82 
2783 
2784 
2785 
2786 
2 76 7 
2/8B 
2789 
2790 



012172 
012174 

012176 
012200 
012202 
012204 
012206 

012210 
012212 
012214 
012216 
012220 
012222 
012224 
012226 
012230 
012232 
012234 
012236 
012240 
012242 
012244 
012246 
012250 
012252 
012254 
012256 
012260 
012262 
012264 
012266 
012270 

012270 



012270 
01.2270 
012274 
012300 
012304 
012306 
012312 
012316 
012322 
012324 
012326 
012332 
012334 
012340 
012344 
012350 
012354 



KACU1 30AQ052) 
l5-MAr,-84 15:51 

022522 
001403 

104000 
000173 
002013 
077106 
000207 

170000 
003541 
177777 
172710 
070000 
003541 
177777 
172710 
00017 7 
100000 
177777 
177007 
070000 
003541 
177777 
172710 
170000 
003541 
177777 
172710 
000000 
000000 
177777 
177007 



l 5 .M*R- M 16.^.^56 



SEQ 0056 



005267 
005037 
012705 
170105 
012701 
012704 
012703 
012324 
077102 
170767 
170203 
012705 
012702 
004767 
02032 7 
001403 



166510 
002122 
000200 

000014 
001136 
012506 



166604 

001136 

012536 
000114 
000200 



1$: 


CKP 


CR5)*,(R2)* 




BEQ 


2$ 




EHROR 






.WORD 


173 




.WORD 


EPPF.RR 


2$: 


SOB 


Rl,l$ 




RTS 


PC 


TS32D0: 


.WORD 


170000 




.WORD 


3541 




.WORD 


177777 




.WORD 


172710 


TS32D1: 


.WORD 


70000 




.WORD 


3541 




.WORD 


177777 




.WORD 


172710 




.WORD 


177 




.WORD 


100000 




.WORD 


177777 




.WORD 


177007 


TS32D3: 


.WORD 


70000 




.WORD 


3541 




.WORD 


177777 




.WORD 


172710 


TS32D4; 


.WORD 


170000 




.WORD 


3541 




.WORD 


177777 




.WORD 


172710 


TS3205: 


.WORD 







.WORD 







.WORD 


177777 




.WORD 


177007 


FIN32: 






TSFP33i 






; t *****************fc*****A*6 


|*TEST 


35 


TEST NF.GD 


) ;*********«**************** 


TST3S: 








INC 


•TESTN 




CLR 


SOTRPELG 




MOV 


<200.R5 




LDF-PS 


R5 




MOV 


*12. .Rl 




MOV 


0TSTl.0C.R4 




MOV 


OTS33DO.R3 


100$; 


MOV 


CR3)..(R4)» 




SOB 


R1.100J 




NEGD 


TSTLOC 




STEPS 


R3 




MOV 


♦TSTLCC.R5 




MOV 


4i533D3,R2 




JSR 


PC.CHEC33 




CMP 


R 3, 4200 




BEQ 


1$ 



j IS DATA CORRECT 

I YES GO ON 

» NO, GO TO ERROR 

i ALL ERRORS TO TRAP TO EMT VECTOR 

j UNIQUE. ERROR NUMBER 

I ADDRESS OF ERROR MESSAGE 



I ARE WE 
{RETURN 



DONE 



************************************ 
***<>**<>***************************** 



INCREMENT TEST NUMBER 

CLEAR TRAP FLAG 

SETUP TO LOAD EPS 

SET FD-1 

INIT COUNTER 

SETUP POINTER TO TEST LOCATION 

SETUP POINTER TO TEST VALUE 

INIT TEST LOCATION 

ARE WE DONE 

***TEST INSTRUCTION*** 

GE1 EPS 

SETUP POINTERS TO DATA 



CHECK IF OATA IS CORRECT 
CHECK EPS 
UK GO ON 



GLOBAL ARIAS 
KDJ11A.MAC 



MACU1 30AC1052) 
15-MAR-84 15jj1 



F5 



2791 








2 792 


012356 


104000 




279? 


012360 


000174 




2794 


012362 


002013 




2795 


012364 


170767 


166556 


2796 


012370 


170203 




2797 


012372 


012705 


001146 


2798 


012376 


012702 


012546 


2799 


012402 


004767 


000056 


2800 


012406 


020327 


000210 


2801 


012412 


001403 




2302 








280? 


012414 


104000 




2804 


012416 


000175 




2805 


012420 


002013 




2806 


012422 


170767 


166530 


2807 


012426 


170203 




2608 


012430 


012705 


001156 


2609 


012434 


012702 


012556 


2810 


012440 


004 76 7 


000020 


2811 


012444 


020327 


000204 


2812 


012450 


001403 




2813 








2814 


012452 


104000 




2815 


012454 


000176 




2816 


012456 


002013 




2817 


012460 






2818 








2819 


012460 


000167 


000102 


2820 








2821 


012464 


012701 


000004 


2822 


012470 


022522 




2823 


012472 


001403 




2824 








2825 


012474 


104000 




2826 


012476 


000177 




282 7 


012500 


002013 




2828 


012502 


077106 




2829 


012504 


000207 




2830 








2831 


012506 


1 70000 




2832 


012510 


003541 




2833 


012512 


177777 




2834 


012514 


172710 




2835 


012516 


070000 




2836 


012520 


003541 




283 7 


012522 


177777 




2838 


012524 


172710 




2839 


012526 


000177 




2840 


012530 


100000 




2841 


012532 


177777 




2842 


012534 


177007 




284 3 


012536 


070000 




2844 


012540 


003541 




2845 


012542 


177777 




2846 


012544 


172710 





15-MAR-A4 

T35 


ERROR 


£ 57 

Sd 




.WORD 


174 




.WORD 


FPPERR 


1$: 


NEGD 


TSTL0C*10 




STFPS 


R3 




MOV 


*TSTL0C*10,R5 




MOV 


0TS33D4.R2 




JSR 


PC.CHEC33 




CMP 


R3 t *210 




BEQ 


2$ 




ERROR 






.WORD 


175 




.WORD 


FPPERR 


2$: 


NEGD 


TSTL0C*20 




STFPS 


R3 




MOV 


«TSTL0C*20,R5 




MOV 


♦TS33D5.R2 




JSR 


PC.CHEC33 




CMP 


R3.0204 




BEQ 


3$ 




ERROR 






.WORD 


1/6 




.WORD 


FPPERR 



SEQ 0057 



3$ 



JMP 



FIN33 



CHEC33i 


MOV 


04, Rl 


it: 


CMP 


(R5)*,CR2)* 




BEQ 


2$ 




ERROR 






.WORD 


177 




.WORD 


FPPERR 


2S: 


SOB 


Rl.l* 




RTS 


PC 


TS33DO: 


.WORD 


170000 




.WORD 


3541 




.WORD 


177777 




.WORD 


172710 


TS33D1: 


.WORD 


70000 




.WORD 


3541 




.WORD 


177777 




.WORD 


172710 


TS33D2J 


.WORD 


177 




.WORD 


100000 




.WORD 


17777/ 




.WORD 


177007 


TS33D5: 


.WOHO 


70000 




.WORD 


3541 




.WORD 


17/777 




.WORD 


172710 



{NO, GO TO ERROR 

{ALL ERRORS TO TRAP TO EMT VECTOR 

t UNIQUE ERROR NUMBER 

i ADDRESS OF ERROR MESSAGE 

I ♦♦♦TEST INSTRUCTION^* 

jGET FPS 

{SETUP POINTERS TO DATA 

j CHECK IF DATA IS CORRECT 

, CHECK FPS 

j OK GO ON 

iNO, GO TO ERROR 

lALL ERRORS TO TRAP TO EMT VECTOR 

lUNIQUE ERROR NUMBER 

{ADDRESS OF ERROR MESSAGE 

{♦♦♦TEST INSTRUCTION^ 

j GET FPS 

{SETUP POINTERS TO DATA 

I CHECK IF DATA IS CORRECT 

{CHECK FPS 

;0K GO ON 

jNO, GO TO ERROR 

jALL ERRORS TO TRAP TO EMT VECTOR 

;UNIQl€ ERROR NUMBER 

{ADDRESS OF ERROR MESSAGE 



;INIT COUNTER 

{IS DATA CORRECT 

{YES GO ON 

{NO, GO TO ERROR 

;ALL ERRORS TO TRAP TO EMT VECTOR 

{UNIQUE ERROR NUMBER 

{ADDRESS OF ERROR MESSAGE 

5 ARE WE DONE 

{RETURN 



GLOBAL AREAS 
KDJ11A.MAC 



MAC >11 30AU052) 
15-MAR-84 15i5l 



15-MAR- 



G5 



-84 16t58 PAGE 
T35 TEST NEGD 



58 



SEQ 0058 



284? 

2848 

2849 

2850 

2851 

2852 

2853 

2854 

2855 

2856 

2857 

2858 

2859 

2860 

2861 

28b2 

2863 

2864 

2865 

2866 

2867 

2868 

2869 

2870 

2871 

2872 

2873 

2874 

2875 

2876 

2877 

2878 

2879 

2880 

2881 

2882 

2883 

2884 

2885 

2886 

2887 

2888 

2889 

2890 

2891 

2892 

2893 

2894 

2895 

2896 

289/ 

2898 

289s 

591)0 

2901 

2902 



012546 
012550 
012552 
012554 
012556 
012560 
012562 
C12564 
012566 

012566 



012566 
012566 
012572 
012576 
012600 
012604 

012606 
012610 
012614 
012616 
012620 
012622 

012624 
012626 
012632 
012634 
012636 
012640 

012642 
012646 
012650 
012652 
012654 

012656 



012656 



012656 
012656 
012662 
012666 
012672 
012676 
012/00 
012702 



170000 
003541 
177777 
172/10 
000000 
000000 
000000 
000000 



005267 

012704 
170104 
012702 
172407 

170201 
022701 
001403 
104000 
000200 
002013 

170312 
022722 
001403 
104000 
000201 
002013 

022722 
001403 
104000 
000202 
002013 



005267 

012/01 
012704 
012702 
170102 
1 72424 
170203 



166212 
04 7600 

001106 



147600 



000002 



012604 



166122 

001126 
001176 
047750 



TS33D4: .WORD 
.WORD 
.WORD 
.WORD 

TS33D5? .WORD 
.WORD 
.WORD 
.WORD 

FIN33: 

MFSRCMO: 
;*TEST 36 

. ; *** + *4>+ + **A** 

TST36: 

INC 

MOV 

LDFPS 

MOV 
1$: LDD 

STFPS 

CMP 

BEQ 

ERROR 
.WORD 
.WORD 



170000 

3541 

177777 

172710 











+ * + 



TEST LOO MODE 0, ILLEGAL AC7 



2$: 



3$: 



STST 

CMP 

BEQ 

ERROR 

.WORD 

. WORO 

CMP 

BEQ 

ERROR 

.WORD 

.WORD 



JTESTN 
04 7600, R4 
R4 

OflECFEC,R2 
R7.AC0 

Rl 

0147600, Rl 
2$ 

200 

FPPERR 

CR2) 

02, (R2)* 
3$ 



t'Ul 

FPPERR 

01$, CR2)* 
4$ 

202 
FPPERR 



4$; 



j INCREMENT TEST NUMBER 

; SETUP FPP STATUS 

tLOAD rp STATUS 

I POINT TO RECEIVED FEC MEMORY 

{♦TEST INSTRUCTION 

j LOAD ACO FROM ILLEGAL AC7 

:SAVE FPP STATUS 

{VERIFY FER BIT SET 

{BRANCH IF GOOD ERROR CONDITION 

j ALL ERRORS TO TRAP TO EMT VECTOR 

j UNIQUE ERROR NLAiBER 

{ADDRESS Of ERROR MESSAGE 
j THE FER BIT DIDNT SET 

j SAVE FEC AND FEA 

j VERIFY FEC CONTENTS 

{BRANCH IF GOOD 

j ALL ERRORS TO TRAP TO EMT VECTOR 

j UNIQUE ERROR NUMBER 

jADDRESS OT ERROfl MESSAGE 
j FEC NE 2 (OPCODE ERROR) 

jVERFIY FEA CONTENTS 

{BRANCH FI GOOD 

{ALL ERRORS TO TRAP TO EMT VECTOR 

{UNIQUE ERROR NUMBER 

{ADDRESS OF ERROR 
}FEA NOT CORRECT ERROR ADDRESS 



MLDDM2; 

;J ♦»»**«**. ****»»»»***«v*****4.********»*»****» + ***«- ************** 

{♦TEST 37 TEST LDD M0DE2 

j ;************-*«************************************ ************** 

TST37: 

INC tTESfN (INCREMEN1 TEST NUMBER 

MOV 0RECDS1.R1 {POINT TO RECEIVED DATA LOCATION 

MOV 0TAB1,R4 {POINT TO GOOO DATA 

MOV 047750, R2 {LOAD GOOD STATUS 

LDFPS R2 {LOAD FPP STATUS - DOUBLE , TO 

LDD (R4)f,AC0 {♦♦♦TEST INSTRUCTION - MODE 2*** 



STFPS R3 



{SAVE TEST FPP STATUS 



J) 



GLOBAL. ARFAS 
KDJ11A.MAC 



2903 
2904 
2905 
2906 
2907 
2908 
2909 
2910 
2911 
2912 
2913 
2914 
2915 
2916 
2917 
2918 
2919 
2920 
2921 
2922 
2923 
2924 
2925 
2926 
292? 
2928 
2929 
2930 
2931 
2932 
2933 
2934 
2935 
2936 
293/ 
2938 
2939 
2940 
2941 
2942 
294 3 
2944 
2945 
2946 

294 7 
2948 
2949 
2950 
2951 
2952 
2953 
2954 
2955 
2956 

295 7 
2958 



012704 
012706 
012710 
012712 
012714 
012716 

012/20 
012724 

012726 
012730 
012732 

0)2734 
012740 

012744 
012750 
012754 

012756 
012760 
012762 
012764 



012764 



012/64 
012764 
012770 
012776 
013002 
013010 
013014 
013020 
013022 
013024 
013026 
013030 
013034 
013036 
013040 
013042 

013044 
013050 
013052 
013054 
013056 

013060 
013064 
013066 
013070 



MACU1 30AC1052) 
15-MAR 84 15j51 

174021 
020203 
001403 
104000 
000203 
002013 



15 -MAR -84 

T37 



16; 58 PAGE 59 

TEST LDD M0DE2 



SEQ 0059 



022704 

001403 
104000 
000204 
002013 

012704 
1627C1 
004 767 
005767 
001403 

104000 
000205 
002013 



005267 
012737 
012701 
012737 
012704 
012702 
170102 
1724 34 
17C203 
174031 
022703 
001403 
104000 
000206 
002013 

022704 
001403 
104000 
00020 7 
002013 

022701 
001403 
104000 
000210 



001206 



1$ 



001176 
000010 
167176 
166064 



2* 



STD 

CMP 

BEQ 

ERROR 

.WORD 

.WORD 

CMP 
BEQ 
ERROR 

.WORD 
.WORD 

MOV 

sue 

JSR 
TST 
BEQ 

ERROR 
.WORD 
.WORD 



AGO, CRD* 

R2.R3 
li 

203 
FPPERR 

*TAB1*10,R4 
2$ 

204 

FPPERR 

4TAB1.R4 
*10, Rl 
37.0ATVER 
COUNT 
3S 



205 
FPPERD 



3$ 



j SAVE test RESULT MODE 2 

jVERIFY FPP STATUS 

} BRANCH IF GOOD 

{ALL ERRORS TO TRAP TO EMT VECTOR 

I UNIQUE ERROR NUMBER 

j ADDRESS OF ERROR MESSAGE 

iBAD FPP STSTUS 

jVERFIY AUT0-1NCR 
i BRANCH IF GOOD 

{ALL ERRORS TO TRAP TO EMT VECTOR 
i UNIQUE ERROR NUMBER 
; ADDRESS OF ERROR MESSAGE 
{BAD AUTO-INCR 

iPOINT TO RECEIVED DATA 
{RETURN Rl TO PROPER VALUE 
iVERFIY DATA FROM FPP 
{SEE IF COUNTER -0 
{BRANCH IF GOOD COMPARE 
iBAD DATA FROM FPP 

{ALL ERRORS TO TRAP TO EMT VECTOR 
j UNIQUE ERROR NUMBER 
j ADDRESS OF ERROR MESSAGE 



166014 
001126 
001140 
001206 
001136 
047750 



047740 



001140 
001136 



MLDDM3: 

j ; ************ 

t *TEST 40 

; ; *********** * 

TST40: 

INC 

MOV 

MOV 

MOV 

MOV 

MOV 

LDFPS 

LDD 

STFPS 

STD 

CMP 

BEQ 

ERROR 

.WORD 

.WORD 



*************************************************** 

TEST LDD MODE 3 
***************** A****************/-*********.******* 



001140 



II 



001142 



2i: 



CMP 
BEQ 

ERROR 
.WORD 
.WORD 

CMP 
BLQ 
E MROR 
.WORD 



♦TESTN 

*RECDST,3*TSTL0C»2 

*TSTL0C*2,R1 

*ta82,s*t5tloc 

4Tstlg:,r4 

<>47750 t R2 
R2 

B(R4)*.AC0 
R3 

ACO t 3CRl)f 
3*7740. R3 
It 

206 
FPPERR 

MSTlOC*2,R4 
2t 

20 7 

FPPERR 

0TSTLOC>4,R1 
210 



.•INCREMENT TEST NL*18ER 

iPOINT TO RECEIVED DATA LOCATION 

{SETUP STD IN MODE 3 

{POINT TO DATA TABLE 

iPOINT TO GOOD DATA 

iLOAD GOOD STATUS 

;LOAD FPP STATUS - DOUBLE, 10 

{♦♦♦TEST INSTRUCTION - MODE ?♦** 

iSAVE TEST FPP STATUS 

{SAVE TEST RESU_T IN MODE 3 

iVEPIFY FPP STATUS 

{BRANCH IF GOOO 

{ALL ERRORS TO TRAP TO EMT VECTOR 

{UNIQUE ERROR NUMBER 

{ADDRESS OF ERROR MESSAGE 

,BAD FPP STATU-, 

{VERFIY AUTO-INCR 

{BAD AUTO-DEC ON LDD 

j ALL ERRORS TO TRAP TO EMT VECTOR 

{UNIQUE ERROR NUMBER 

{ADDRESS OE ERROR MESSAGE 

I BAD AUfO-INC 

{ TEST STD AUrO-INC 

i BRANCH IF GOOD 

{ALL ERRORS TO TRAP TO EMT VECTOR 

{UNIQUE ERROR NUMBER 



I[ 



^J 



Gl.OUAi AIU AS 
KDJUA.MAC 



MAC ^ 11 30AM052) 
15-MAR-84 15:51 



15 -MAR- 



S TEST LDD MODE 



SEQ 0060 



2959 

2960 
2961 
2 c j*2 
2963 
2964 
2965 
2966 
2967 
2968 
2969 
2970 
2971 
29 72 
297.5 
2974 
2975 
2976 
2977 
2978 
2979 
2980 
2981 
2982 
2983 
2984 
2985 
2986 
2987 
2988 
2989 
2990 
2991 
299," 
299? 
2994 
2995 
2996 

299 7 
2998 
2999 
3000 
3001 
3002 
3003 
3004 
3005 
3006 

300 7 
3008 
3009 
3010 
3011 
30 12 
3015 
3014 



013072 002013 



013074 
013100 
013104 
013110 
013114 
013116 
013120 
013122 

013124 

013124 



013124 
013124 
013130 
013134 
013140 
013144 
013150 
013152 
013156 
013160 
013162 
013164 
013170 
013172 
013174 
013200 
013202 
013204 
013206 

013210 
013214 
013216 
013220 
013222 

015224 

013230 
013234 
013240 
013242 
013244 
013246 

01 5250 

015250 



01270* 
012701 
004 76 7 
005767 
001403 
104000 
000211 
002013 



005267 
012701 
012704 
012705 
170127 
172415 
012702 
170102 
172444 
170203 
012 702 
170102 
174041 
022703 
001403 
104000 
000212 
002013 

022 704 
001403 
104000 
000213 
002013 

012704 
004767 
005767 
001405 

104000 
000214 
002013 



001206 
001126 
167036 
165724 



165654 
001132 
001222 
0012S6 
000200 

047550 



047750 



04 7540 



001216 



001216 
166712 
165600 



.WORD FPPERR 



3$ 



MOV 

MOV 

JSR 

T5T 

BEQ 

ERROR 

.WORD 

.WORD 



OTAB2.R4 

ORECDST.Rl 

R7.DATVER 

COUNT 

At 



211 
FPPERR 



4$: 

MLDDM4 
i }**** 

5*TE5T 

j ;***♦ 

TST41; 



j ADDRESS OF ERROR MESSAGE 

jBAD AUTO-INCR 

I POINT TO RECEIVED DATA 

iPOINT TO RECEIVED DATA 

{VERFIY DATA FROM FPP 

j SEE IF COUNTER-O 

j BRANCH IF GOOD CCMPARE 

;ALL ERRORS TO TRAP TO EMT VECTOR 

j UNIQUE ERROR NUMBER 

j ADDRESS OF ERROR MESSAGE 

j BAD DATA FROM FPP 



41 TEST LDF, STD MODE 4 

**+****+*+***********************************«+*+****««**** 



1$ 



2$ 



INC 

MOV 

MOV 

MOV 

LDFPS 

LDD 

MOV 

LDFPS 

LDF 

STEPS 

MOV 

LDFPS 

STD 

CMP 

BEQ 

ERROR 

.WORD 

.WORD 

CMP 
BEQ 
ERROR 

.WORD 
.WORD 

MOV 

JSR 

1ST 

BEQ 

ERROR 

.WORD 

.WORD 



♦TESTN 

0RECDSU4.R1 

OTAB3»4,R4 

0TAB6.R5 

0200 

CR5).AC0 

04 7550.R2 

R2 

(R4).AC0 
R3 

047750, R2 
R2 

ACO. -CR1) 
04 7540, R 3 
1$ 

212 
FPPERR 

OTAB3.R4 
2$ 

213 
FPPFRR 

OTAB5.R4 
R7.0ATVER 
COUNT 
31 

214 
FPPERR 



5 J 



{INCREMENT TEST NLtlBER 

{POINT TO RECEIVED DATA LOCATION 

{POINT TO GOOD DATA 

j CLEAR OUT ACO 

;SET TO DOUBLE 

jACO-0 

{LOAD GOOD STATUS FLOATING 

{LOAD FPP STATUS - DOUBLE, ID 

{ *TEST INSTRUCTION MODE 4 

{SAVE TEST FPP STATUS 

;SET TO DOUBLE MODE 

SET FPP TO DOUBLE 

SAVE TEST RESULT 

VERIFY FPP STATUS 

BRANCH IF GOOD 

ALL ERRORS TO TRAP TO EMT VECTOR 

UNIQUE ERROR NUMBER 

ADDRESS OF ERROR MESSAGE 

BAD FPP STATUS 

VERFIY AUTO -DEC 

BRANCH IF GOOD 

ALL ERRORS TO TRAP TO EMT VECTOR 

WIQUE ERROR NUMBER 

ADDRESS OF ERROR MESSAGE 

BAD AUTO-INCR 

POINT TO RECEIVED DATA 

VERFIY DATA FROM FPP 

SEE IF COUNTER-0 

BRANCH IF GOOO COMPARE 

ALL ERRORS TO TRAP TO EMT VECTOR 

UNIQUE ERROR NUMBER 

ADDRESS OF fcRROR MESSAGE 
{BAD DATA FROM FPP 



Ml DO MS 
I I**** 

{♦TEST 42 



j j************************* 



TEST LDD MODE 5 



GLOBAL. ARt-AS 
KDJ11A.MAC 



MACU1 30AC1052) 
15-MAR-84 15:51 



J5 



15 -MAR -84 
T42 



16; 58 PAGE 61 

TEST LCD MODE 5 



SEQ 0061 



3016 
3017 
3018 
3019 
3020 
3021 
302? 
3023 
3024 
3025 
3026 
3027 
3028 
3029 
3030 
3031 
3032 
3033 
3034 
3035 
3036 

303 7 
3038 
3C39 
3040 
3041 
3042 

304 3 
3044 
3045 
3046 
304 7 
3048 
304 9 
3050 
3051 
3052 
305j 
3054 
30<<5 
3056 
305/ 
3058 
305^ 
3060 
3061 
3062 
3063 
3064 
3065 
3066 
306/ 
3068 
3069 
3070 



013250 
013250 
01? 254 
011.260 
013264 
013272 
013276 
013300 
013302 
0133C4 
013306 
013310 
013312 
013314 
013316 

013320 
013324 
013326 
0)3330 
013332 

013334 
013340 
013344 
013350 
013352 
013354 
013356 

013360 

013360 



013360 
013560 
013364 
<U 33 70 
0133/4 
013400 
013402 
013406 
C134K 
013414 
013420 
013422 
013424 
013426 

013430 

013434 
013440 
013444 



005267 
012701 
012704 
012737 
012702 
170102 
172454 
170203 
174011 
020203 
0014r3 

104000 
000215 
002013 



001405 
104000 
000216 
002013 

012704 
004767 
005767 
001403 
104000 
000217 
002013 



005267 
012701 
012704 
012/02 
170102 
172464 
170203 
174061 
022 7C 3 
001403 
104000 
000220 
002013 

162701 
C62704 
004 767 
005/6 7 



165530 
001126 
001140 
001176 
047750 



] j ******* ******n* *******************^******************>.******* + * 

TST42* 



001136 



001176 
166602 
165470 



165420 
001326 
00 1006 
O4 7 7S0 

000200 

1 //600 
047740 



INC 

MOV 

MOV 

001136 MOV 

MOV 
LDFPS 
LDD 
STFPS 
STD 
CMP 
BEQ 
ERROR 
. WORD 
.WORD 

lit CMP 

BEQ 
ERROR 

.WORD 
.WORD 

2*: MOV 
J5R 
T5T 
BEQ 
ERROR 
.WORD 
.WORD 

3*i 

MLDDM6: 

j • ************ 

;*TEST 43 

j j ************ 

TST43: 

INC 

MOV 

MOV 

MOV 

LDFPS 

LDD 

STEPS 

STD 

CMP 

HtU 

ERROR 

, WORD 

. WORD 



*TESTN 

0RECDST.R1 

0TSTLOO2.R4 

0TAB1.Q0TSTL0C 

447750, R2 

R2 

B~(R4),AC0 

R3 

AC0.CR1) 

R2.R3 

1$ 

215 
FPPERR 

0TSTL0C.R4 
2* 

216 

EPPERR 

0TAB1.R4 
R7.DATVER 

COUNT 
3i 

217 

FPPERR 



INCREMENT TEST NUMBER 

POINT TO RECEIVED DATA LOCATION 

POINT TO GOOD DATA 

SET UP MODE 5 POINTER TO DATA 

LOAD GOOD STATUS 

LOAD FPP STATUS - DOUBLE, ID 

♦TEST INSTRUCTION - MODE 5 

SAVE TEST FPP STATUS 

SAVE TEST RESULT 

VERIFY FPP STATUS 

BRANCH IF GOOD 

ALL ERRORS TO TRAP TO EMT VECTOR 

UNIQUE ERROR NUMBER 

ADDRESS OF ERROR MESSAGE 

BAD FPP STATUS 

VERFIY AUTO-DEC 

BRANCH IF GOOD 

ALL ERRORS TO TRAP TO EMT VECTOR 

UNIQUE ERROR NUMBER 

ADDRESS OF ERROR MESSAGE 

BAD AUTO-DEC 

POINT TO EXPECTED DATA 

VERFIY DATA FROM FPP 

SEE IF COUNTER -0 

BRANCH IF GOOD COMPARE 

ALL ERRORS TO TRAP TO EMT VECTOR 
{UNIQUE ERROR NUMBER 
i ADDRESS OF ERROR MESSAGE 
;BAD DATA FROM FPP 



********************** * **************************** 

TEST LDD MODE 6 

*************************************************** 



000200 
000200 
16650; 
1653/0 



1.* 
2* 



5UH 
ADD 
JSR 
T5T 



iTESTN 

OfU: COST* 200 t Rl 

OTA02 200, R4 

tf4/ V50, R2 

K? 

200CR4\AC0 

R3 

ACO, -200CR1) 

04/74O.R3 

1 J 

220 
FPPERR 

#2 00, Hi 
0200 .*<♦ 
R/.DATVER 
COUNT 



i INCREMENT TEST NUMBER 

{POINT TO RECEIVED DATA LOCATION 

{SETUP R4 :-"0R MODE 6 

jLOAD GOOD STATUS 

j LOAD fPP STATUS •• DOUBLE , ID 

{LOO MODE 6 

(SAVE TEST FPP STATUS 

jf.AVE 1EST RESULT 

j VERIFY KPP STATUS 

{BRANCH IF GOOD 

I ALL ERRORS TU Tf<AP TO RU VECTOR 

l UN I OUfc ERROR NUMBER 

.ADDRESS OF ERROR MESSAGE 

;BAD FPP STATUS 

{Rl-RECDST 

{POINT TO LXPEITEP DATA 

iVERKIY DATA FROM FPP 

{SEE IF COUNTER -0 



I<5 



GLOBAL 


AREAS 


MACU1 


30AC105J 


KDJ11A. 


MAC 1S-MAR-84 


15:51 


30 71 


013450 


001403 




307? 


013452 


104000 




3073 


013454 


000221 




3074 


013456 


002013 




30 75 








30/6 


013460 






307 7 








3076 


013460 






3079 








3060 








3081 








308? 


013460 






3083 


013460 


005267 


165320 


3084 


013464 


012701 


001126 


3085 


013470 


005004 




3086 


013472 


012727 


0011/6 


3087 


013500 


012 702 


047 750 


3088 


013504 


170102 




3089 


013506 


1724 74 


001136 


3090 


013512 


170203 




3091 


013514 


174011 




3092 


013516 


020203 




3093 


013520 


00.1403 




3094 


0135^2 


104000 




3095 


013524 


000222 




3096 


013526 


002013 




3097 








3098 


013530 


005704 




3099 


013532 


001403 




3100 


013534 


104000 




3101 


013536 


000223 




3102 


013540 


002013 




3103 








3104 


013542 


012704 


001176 


3105 


013546 


004767 


166374 


3106 


01355? 


00576 7 


165262 


31.0/ 


013556 


001403 




3108 


013560 


104000 




3109 


013562 


000224 




3110 


013564 


002013 




3111 








3112 


013566 






3113 








3114 


013566 






311.5 








3116 








3U7 








3118 


013566 






3119 


013566 


005267 


165212 


3120 


013572 


012701 


001126 


3121 


013576 


012/04 


001236 


3122 


01360? 


012/02 


047750 


3123 


013606 


005005 




3124 


013610 


170102 




3125 


013612 


1/2427 


04 3243 


3126 


01361b 


005205 
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TEST LDD MODE 



SEQ 0062 



BEQ 
ERROR 
.WORD 
.WORD 



3$; 



001136 



MLDDM7. 

; j ************ 

j+TEST 44 

{ ;************ 

TST44; 

INC 

MOV 

CLR 

MOV 

MOV 

LDPPS 

LDD 

STFPS 

STD 

CMP 

BEQ 

ERROR 

.WORD 

.WORD 



1$ 



2* 



TST 
BEQ 

ERROR 
.UORD 
.WORD 

MOV 

JSR 

TST 

BEQ 

ERROR 

.WORD 

.WORD 



3$ 

221 

FPPERR 



****************** 

TEST LDD MODE 7 

**<-*************** 

$TESTN 

ORECDST.Rl 

R4 

0TAB1.0TSTL0C 

047750. R2 

R2 

STSTL0C(R4),AC0 

P3 

AC0,CR1) 

R2.R3 

1* 

222 
FPPERR 

R4 

2i 

223 
FPPERR 

4TAB1.R4 

R7.0ATVER 

COUNT 

3* 

224 
FPPERR 



3*: 

ML DM2/ 
i }♦*♦♦ 
j*TEST 

TST45: 



{BRANCH IF GOOD COMPARE 

j ALL ERRORS TO TRAP TO EMT VECTOR 

j UNIQUE ERROR NUMBER 

I ADDRESS OF ERROR MESSAGE 

j BAD DATA FROM FPP 



********************************* 

********************************* 

j INCREMENT TEST NUMBER 

{POINT TO RECEIVED DATA LOCATION 

jR^-C 

j POINTER FOR MODE 7 GOOD DATA 

;LOAD GOOD STATUS 

{LOAD FPP STATUS - DOUBLE, ID 

j*TEST INSTRUCTION - MODE 7 

» SAVE TEST FPP STATUS 

{SAVE TEST RESULT 

{VERIFY FPP STATUS 

{BRANCH IF GOOD 

{ALL ERRORS TO TRAP TO EMT VECTOR 

{UNIQUE ERROR NUMBER 

{ADDRESS OF ERROR MESSAGE 

jBAD FPP STATUS 

jVERFIY CONTENTS OF R4 

{BRANCH IF GOOD 

{ALL ERRORS TO TRAP TO EMT VECTOR 

jLNIQUE ERROR NUMBER 

jAODRESS OF ERROR MESSAGE 

; BAD R4 

jPOi'NT TO RECEIVED DATA 

jVERFIY DATA FROM FPP 

iSEE IF COUNTER-0 

{BRANCH IF GOOO COMPARE 

{ALL ERPORS TO TRAP TO EMT VECTOR 

{UNIQUE ERROR NUMBER 

{ADDRESS Of ERROR MESSAGE 

{BAD DATA FROM FPP 



a*********************************. ************************* 

45 TEST LDD MODE 27 - ONLY 16 BITS ARE LOADED OR STORED 

*********************************************************** 



INC 

MOV 

MOV 

MOV 

CLR 

l.OFPS 

LDD 

INC 



ITF.5TN 

frflECDST ,R1 

0TAD5.R4 

M7 750.R2 

R5 

R? 

05205, AGO 

R5 



I INCREMENT TEST NUMBER 

{POINT TO RECEIVED DATA LOCATION 

{POINT TO GOOO DATA 

{LOAD GOOD STATUS 

} R5-0 

{10AD FPP STATUS DOUBLE, ID 

{♦TEST INSTRUCTION - MODE 27 



L.5 



GLOBAL AREAS 
KDJ11A.MAC 



3127 

3128 

3129 

3130 

3131 

3132 

3133 

3134 

3135 

3136 

3137 

3138 

3139 

3140 

3141 

314? 

3143 

3144 

3145 

3146 

3147 

3148 

3149 

3150 

3151 

3152 

3153 

3154 

315'i 

3156 

3157 

3158 

3159 

3160 

3161 

3162 

3163 

3164 

3165 

3166 

3167 

3168 

3169 

3170 

3171 

3172 

3173 

3174 

3175 

3176 

317 7 

3178 

31 79 

3180 

3181 

3182 



013620 
013622 
013624 
013630 
013632 
013634 
013636 

013640 
013642 
013644 
013650 
013652 
013654 
013656 

013660 
013664 
013670 
013672 
013674 
013676 

013700 

013700 



013700 
013700 
013704 
013710 
013714 
013720 
013724 
013726 
013 730 
013732 
013734 
013740 
013742 
013744 
013746 

013750 
013754 

013/56 
013 762 

013 766 
013770 
013772 
013774 

013/76 
014002 



MACU1 30AC1052) 
15-MAR 84 15*51 

005205 
005205 
022705 000003 



15 -MAR 84 
T45 
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TEST LDD MODE 27 - ONLY 16 8ITS ARE LOADED OR STORED 



SEQ 0063 



001403 
1C4000 
000225 
002013 

170203 
174011 
022703 
001403 
104000 
000226 
002013 

004 76 7 
005767 
001403 
104000 
000227 
002013 



005267 
012 704 
005067 
005067 
012702 
170102 
1/2414 
172014 
170203 
0227C3 
001403 
104000 
000230 
002013 

012/01 

174011 
004767 
005767 
001403 
104000 
000231 
002013 

012702 
W0102 



1$: 



047740 



166262 
165150 



2*: 



INC 

INC 

CMP 

BEQ 

ERROR 

.WORD 

.WORD 

STFP3 

STD 

CMP 

BEQ 

ERROR 

.WORD 

.WORD 



TST 

BEQ 

ERROR 

.WORD 

.WORD 



R5 
R5 

03, R5 
U 

225 

FPPERR 

R3 

ACO.(Ri) 
047740, R3 
2$ 

226 
FPPERR 

R7.0ATVER 

COUNT 

3t 

227 
FPPERR 



165100 
001256 
165216 
165214 
040000 



040004 



3$: 

MNNRM1 
; {♦♦♦♦ 
j*TEST 
; }**♦♦ 

TST46: 



} TEST PROPER PC PATH 

{VERIFY ONLY 3 PC INCREMENT 

{BRANCH IF PROPER PC ACTION 

{ALL ERRORS TO TRAP TO EMT VECTOR 

i UNIQUE ERROR NUMBER 

i ADDRESS OF ERROR MESSAGE 

jBAD MODE 27 LOAD 

l SAVE TEST FPP STATUS 

i SAVE TEST RESULT 

jVERIFY FPP STATUS 

t BRANCH IF GOOD 

jALL ERRORS TO TRAP TO EMT VECTOR 

I UNIQUE ERROR NUMBER 

i ADDRESS Of ERROR MESSAGE 

{BAD FPP STATUS 

{VERFIY DATA FROM FPP 

j SEE IF COUNTER -0 

{BRANCH IF GOOD COMPARE 

{ALL ERRORS TO TRAP TO EMT VECTOR 

j UNIQUE ERROR NUMBER 

{ADDRESS OF ERROR MESSAGE 

iBAD DATA FROM FPP 



46 TEST ADDF, AODD. SUBF . SU6D ACO-0 FSRC-Oj 
*+*+*+******++*****+***♦< ft********************************* 



001126 

166164 
165052 



1* 



040200 



2$ 



INC 

MOV 

CLR 

CLR 

MOV 

LDFPS 

l.DF 

ADDF 

STf-PS 

CMP 

BEQ 

ERROR 

.WORD 

.WORD 

MOV 

STF 

J5R 

TST 

BEQ 

ERROR 
. WORD 
.WORD 

MOV 
LDFPS 



$TESTN 

0TAB6.R4 

RECDST»4 

RECDST»6 

040000, R2 

R2 

(R4),AC0 

(R4),AC0 

R3 

040004, R3 

1$ 

230 
FPPERR 



Rl 



{BAD 



ORE COST 
AC0.CR1 ) 
R/.DATVER 

COUNT 

2J 

231 
FPPERR 



040200. R2 
R2 



{BAD 



{INCREMENT TEST NUMBER 
{POINT TO FSRC TEST DATA 
{CLEAR OUT RECEIVED DATA TABLE 

JsET UP GOOD STATUS 
{LOAD FPP STATUS, FLOATING 
{LOAD ACO WITH 
l ♦ 

{SAVE STATUS 
jVERin STATUS 
{BRANCH IF GOOO 

j ALL ERRORS TO TRAP TO EMT VECTOR 
{UNIQUE ERROR NUMBER 
{ADDRESS OF ERROR MESSAGE 
FPP STATUS 

{POINT TO RECEIVERD DATA 
{SAVE DATA 
{VERIFt DATA 

I 

{BRANCH IF GOOD 

jALL ERRORS TO TRAP TO EMT VECTUR 
{UNIQUE ERROR NUMBER 
{ADDRESS OF ERROR MESSAGE 
DATA IN ACQ 

iLOAO FLOATING STATUS 
J 



M5 



GLOBAL 


AREAS 


MAC'.' 11 


30A(105; 


KOJ11A. 


MAC 15-MAR-84 


15:51 


3183 


014004 


172414 




3184 


014006 


1 72014 




3185 


014010 


174011 




3186 


014012 


170203 




3187 


014014 


022703 


040204 


3188 


014020 


001403 




3189 


014022 


101000 




3190 


014024 


000232 




3191 


014026 


002013 




3192 








3193 


014030 


004767 


166112 


3194 


014034 


005737 


001040 


3195 


014040 


001405 




3196 


014042 


104000 




3197 


014044 


000233 




3198 


014046 


002013 




3199 








3200 


014050 


172414 




3201 


014052 


1 7 3014 




3202 


014054 


170203 




3203 


014056 


022703 


040204 


3204 


014062 


001403 




3205 


014064 


104000 




3206 


014066 


000234 




3207 


014070 


002013 




3208 








3209 


014072 


174011 




3210 


014074 


004767 


166046 


32' i 


014100 


00576 7 


164734 


3212 


014104 


001403 




3213 


014106 


104000 




3214 


014110 


000235 




3215 


014112 


002013 




3216 








3217 


014114 


170127 


000000 


3218 


014120 


172414 




3219 


014122 


173014 




3220 


014124 


170203 




3221 


014126 


174011 




3222 


014130 


022703 


000004 


3223 


014134 


001403 




3224 


014136 


104000 




3225 


014140 


000236 




3226 


014142 


00201? 




3227 








3228 


014144 


004 767 


165776 


3229 


014150 


005767 


164664 


3230 


014154 


001403 




3231 


014156 


104000 




3232 


014160 


000237 




3233 


014162 


002013 




3234 








32-55 


014 K,4 






3236 








32 5/ 
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T46 


TEST ADDF, ADDD, SUBF , 


SUBD - 


• ACO-0 FSRC-Oj 






LDD 


(R4),AC0 




lLOAO ACO WITH 






ADDD 


(R4),AC0 




{♦TEST INSTRUCTION 






STD 


ACO.(Rl) 




{SAVE DATA 






STFPS 


R3 




{SAVE EPS 






CMP 


040204 ,R3 




{VERFIY STATUS 






BEQ 


3$ 




{BRANCH IF GOOD 






ERROR 






{ALL ERRORS TO TRAP TO EMT 






.WORD 


232 




{UNIQUE ERROR NUMBER 






.WORD 


FPPERR 


j BAD 


{ADDRESS OF ERROR MESSAGE 
FPS 




3$j 


JSR 


R7,0ATVER 




{VERFIY DATA 






TST 


fcOCUUNT 




{VERIFY RESULT 






BEQ 


44$ 




{BRANCH IF GOOD 






ERROR 






{ALL ERRORS TO TRAP TO EMi 






.WORD 


233 




{UNIQUE ERROR NUMBER 






.WORD 


FPPF.RR 


{BAD 


{ADDRESS OF ERROR MESSAGE 
ACO 




44$: 


LDD 


f 14 ) , ACO 




{SETUP DATA 






SU6D 


(R4 1.HC0 




{ *TEST INSTRUCTION 






STFPS 


R3 




{SAVE STATUS 






CMP 


040204, R3 




{VERFIY STATUS 






BEG 


4$ 




iDR/NCH IF GOOD 






ERROR 






{ALL ERRORS TO TRAP TO EMT 






.WORD 


234 




lUNIOUF ERROR NUMBER 






.WORD 


FPPERR 


;BAD 


jADOutlSS OF ERROR MESSAGE 
FPS 




4$: 


STD 


ACO.(Rl) 




{SAVE ACO DATA 






JSR 


R7.DATVER 




{VERFIY DATA 






TST 


COUNT 




i 






BEQ 


5$ 




{BRANCH IF GOOD 






ERROR 






{ALL ERRORS TO TRAP TO EMT 






.WORD 


235 




{UNIQUE ERROR NUMBER 






.WORD 


FPPERR 


}BAD 


;ADDRES5 OF ERROR MESSAGE 
ACO 




5$: 


L.DFPS 


00 


j STORE FPP STATUS 






LDD 


(R4),AC0 




{LOAD ACO 






SUBF 


l ^4), ACO 




}0-0 






STFPS 


k3 




{SAVE STATUS 






STD 


ACO.(Rl) 




{SAVE ACO 






CMP 


04, R3 




{VERFIY STATUS 






BEQ 


6$ 




{BRANCH IF GOOD 






ERROR 






{ALL ERRORS TO TRAP TO EMT 






.WORD 


236 




{UNIQUE ERROR NUMBER 






.WORD 


FPPERR 


jBAD 


{ADDRESS OF ERROR MESSAGE 
FPS 




6$: 


JSR 


R7.DATVER 




{VERIFY DATAT 






TST COUNT 




• 






BFQ 


7$ 


{BRANC IF GOOD 






ERROR 






lALl ERRORS 1U TRAP TO EMT 






.WORD 


237 




{UNIQUE ERROR NUMBER 






.WORD 


FPPERR 




{ADDRESS OF ERROR MESSAGE 



SEQ 0064 



VECTOR 



VECTOR 



VECTOR 



VECTOR 



VECTOR 



VECTOR 



3238 014164 



/$ 



MNNRM2 j 



{BAD ACO 



GLOBAL 


AREAS 


MACU1 


30A(1052) 


KDJ11A. 


MAC lb -MAR -84 


15:51 


3239 








3240 








3241 








3242 


014164 






324 3 


014164 


005267 


164614 


3244 


014170 


012701 


001126 


3245 


014174 


012705 


001256 


3246 


on 200 


012704 


001206 


324 7 


014204 


170127 


000200 


3248 


014210 


172415 




3249 


014212 


005002 




3250 


014214 


170102 




3251 


014216 


172414 




3252 


014220 


172015 




3253 


014222 


170203 




3254 


014224 


1740il 




3255 


014226 


022703 


000000 


3256 


014232 


001403 




3257 


014234 


104000 




3258 


014236 


000240 




3259 


014240 


002013 




3260 








3261 


014242 


012704 


001226 


3262 


014246 


004 767 


165674 


3263 


014252 


005767 


164562 


3264 


014256 


001403 




3265 


014260 


104000 




3266 


014262 


00024 1 




3267 


014264 


002013 




3268 








3269 


014266 


170127 


000200 


3270 


01 ;272 


17241*1 




3271 


014274 


173015 




3272 


014276 


170203 




3273 


014300 


174011 




3;: 74 


014302 


0227C3 


000200 


3275 


014306 


001403 




3276 


014310 


104000 




327 7 


014312 


000242 




3278 


014314 


002013 




3279 








3280 


014316 


012704 


001226 


3281 


014322 


004 76 7 


165620 


3282 


014 326 


005767 


164506 


3283 


014332 


001403 




3284 


014334 


104000 




3285 


014336 


00024 3 




3286 


014340 


002013 




328 7 








3288 


014342 






3289 








3290 








3291 


014342 






3292 








329 5 








3V94 
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T47 TEST ADDF.SUBD 



N5 

FSRC-O, ACO NE 



SEQ 0065 



• ************************* 


;+TEST 


47 


TEST ADDF, 


. .***************++*♦♦**♦* 


TST47; 








INC 


ITESTN 




MOV 


0RECDST,R1 




MOV 


0TAB6.R5 




MOV 


0TAB2,R4 




LDFPS 


0200 




LDD 


(R5),AC0 




CLR 


R2 




LDFPS 


R2 




LDF 


(R4) t AC0 




ADDF 


(R5),AC0 




STFPS 


R3 




S7F 


AC0.CR1) 




CMP 


00, R3 




BEQ 


1$ 




ERROR 






.UORD 


240 




.WORD 


FPPERR 


1*: 


MOV 


OTAB4.R4 




JSR 


R/.OATVER 




TST 


COUNT 




BEQ 


2$ 




ERROR 






.WORD 


241 




.WORD 


FPPERR 


2*: 


LDFPS 


0200 




LDD 


CR4),AC0 




sueo 


(R5),AC0 




STEPS 


R3 




STD 


ACO.CRt) 




CMP 


0200, R3 




BEQ 


3$ 




ERROH 






.WORD 


242 




.WORD 


FPPERR 


3$: 


MOV 


0TAB4 ,R4 




JSR 


K7.DATVER 




TST 


COUNT 




BEQ 


4$ 




ERROR 






.WORD 


243 




, WORD 


FPPERR 



FSRC-O, ACO NE 



m 



MNNPM3 : 



» INCREMENT TEST NUMBER 

jPOINT TO RECEIVED DATA TABLE 

j POINT TO SOURCE DATA TABLE 

{POINT TO ACO DATA 

j SET TO DOUBLE FOR CLEAR 

i SETUP FPP STATUS 
I LOAD FPS 
I LOAD ACO 

{♦TEST INSTRUCTION 
I SAVE STATUS 
{SAVE ACO 

jVERFIY NEGATIVE RESULT 
{BRANCH IF GOOD 

j ALL ERRORS TO TRAP TO KMT VECTOR 
> UNIQUE ERROR NUM8ER 
{ADDRESS OF ERROR MESSAGE 



jBAD FPS 

jPOINT TO EXPECTED DATA 
jVERFIY ACO 

{CHECK RESULT 

{BRANCH IF GOOD 

j ALL ERRORS TO TRAP TO FMT VECTOR 

j UNIQUE ERROR NUMBER 

{ADDRESS OF ERROR MESSAGE 
{BAD ACO 
{SET STATUS TO OUOBLE NODE 

{LOAD ACO WITH A VALUE 

{♦TEST INSTRUCTION 

{SAVE FPP STATUS 

jSAVE ACO 
{VERIFY RESULT 

{BRANCH IF GOOD 

;ALL ERRORS TO TRAP TO EMT VECTOR 

{UNIQUE ERROR NUMBER 

{ADDRESS OF ERROR MESSAGE 
;BAD SUBD 

{POINT TO EXPECTED 

{VERIFY ACO 

1 

{BRANCH IF GOOD ACO 
j AIL ERRORS TO TRAP TO FMT VECTOR 
{UNIQUE ERROR NUMBER 
{ADDRESS OF ERROR MESSAGE 
{BAD ACO 



{♦TEST 50 TEST AODD , SUttf ^ SRC Nt 0, ACO-'O 

» j *******♦♦♦♦♦♦♦♦♦♦*♦♦♦*♦ t*************** A*********************** 















Rb 








GLOBAL. 


AREAS 


MACUi 


50 AU 052) 


15 -MAR 84 16 


j 58 PAGfc 66 








KDJUA. 


MAC 15-MAR-04 


15:51 


T50 


TEST ADDD, SUBF FSRC 


NE 0, 


ACO-0 




329b 


014342 






TST50! 












3296 


014342 


00526 7 


164436 




INC 


ITESTN 




1 INCREMENT TEST NUMBfc? 




309 7 


014346 


012701 


001126 




MOV 


0RECDST.R1 




iPOINT TO RECEIVED DATA TABLt 


3294 


014352 


012705 


001256 




MOV 


0TA96,«5 




jPOINT TO ACO DATA TABLE 




3299 


014356 


012704 


001176 




MOV 


0TAB1.R4 




iPOINT TO FSRC DATA 




3300 


014362 


012702 


000200 




MOV 


0200, R2 




jSETUP FPP STATUS 




3301 


014366 


170102 






LDFPS 


R2 




lLOAD EPS 




3302 


014370 


172415 






I DO 


CR5),AC0 




lLOAD ACO 




3303 


014372 


172014 






ADDO 


(RO.ACO 




I •TEST INSTRUCTION 




3304 


014374 


170203 






STKPS 


R3 




I SAVE STATUS 




3305 


014376 


174011 






STO 


AC0.CR1) 




iSAVE ACO 




3306 


014400 


022703 


000210 




CMP 


0210, R3 




IVERFIY NEGATIVE RESULT 




3307 


014404 


001403 






BEQ 


11 




, BRANCH IF GOOD 




3308 


014406 


104 OOO 






ERROR 






lALL ERRORS TO TRAP TO EMT 


VECTOR 


3309 


014410 


000244 






.UOPO 


244 




jLHIQUE ERROR NUMBER 




3310 


014412 


00201,3 






.WORD 


FPPERR 




I ADDRESS OF ERROR MESSAGE 




3311 














|BAD 


FPS 




3312 


014414 


004767 


165526 


1*5 


JSR 


R7.DATVER 




tVERFlY ACO 




3313 


014420 


0057 7 


164414 




TST 


COUNT 




jCHCCK RESULT 




3314 


014424 


001403 






BEQ 


21 




l BRANCH IF GOOO 




3315 


014426 


104000 






ERROR 






j ALL ERRORS TO TRMH TO EMT 


VECTOR 


3316 


014430 


000245 






.WORD 


245 




jUNIQUE ERROR NUMBER 




3317 


014432 


002013 






.WORO 


FPPERR 




j ADDRESS OT ERROR MESSAGE 




3318 














»BAD 


ACO 




3319 


014434 


170127 


000200 


2$: 


LDFPS 


♦200 


jSET 


STATUS TO DU06LE NOOE 




3320 


014440 


172415 






LDr" 


(R5),AC0 




lLOAD ACO WITH A VALUE 




3321 


014442 


173C14 






SU6D 


(R4),AC0 




l#TEST INSTRUCTION 




3322 


014444 


170203 






STFPS 


R3 




iSAVE FPP STATUS 




3323 


014446 


174011 






5TF 


ACO.(Rl) 




jSAVE ACO 




3324 


014450 


022703 


000200 




CMP 


0200. R 3 


iVERIFt RESIST 




3325 


014454 


001403 






BEQ 


31 




i BRANCH IF GOOO 




3326 


014456 


104000 






ERROR 






lALL ERRORS TO TRAP TO EMT 


VECTOR 


3327 


014460 


0O0246 






.WORD 


246 




iL^IQUE ERROR N^tiBEP 




3328 


014462 


002013 






.WORD 


FPPERR 




{ADDRESS Of ERROR MESSAGE 




3329 














♦ RAD 


SUBD 




3330 


014464 


012704 


001446 


31: 


MOV 


0TAB18.R4 




jPOINT TO EXPECTED DATA 




3331 


014470 


004767 


165452 




vJSR 


R7.DATVER 




iVERIFY ACO 




3332 


014474 


C 05 76 7 


164340 




tst 


COUNT 




i 




3333 


014500 


001403 






BEQ 


41 




i BRANCH IF GOOO ACO 




3354 


014502 


104000 






ERROR 






lALL ERRORS TO TRAP TO EMT 


VECTOR 


3535 


014504 


00024 7 






.WORD 


24/ 




lUNIQL* ERROR NUMBER 




3336 


014506 


002013 






.WORD 


FPPERR 




i ADDRESS OE ERROa MESSAGE 




3337 














iBAD 


ACO 




3338 


014510 






41: 












3339 




















3340 




















3341 


014510 






MNNRM4: 












3542 




















334 3 


l*TEST 


51 


TtSr ADDF, SUBD tXP(ACO) - EXP(FSRC) 




3344 


014510 


















3545 


TST5U 












3346 


014510 


00526 7 


1642/0 




INC 


ITESTN 




l INCREMENT TEST NUMBER 




334 1 


014514 


012702 


003240 




MOV 


03240, R2 




iSET FIU.FD.FT 




3348 


014 520 


170102 






LD*PS 


PH 








3349 


014 522 


012/04 


0012/6 




MOV 


0TAB/.R4 




|5I T >SPC 




3350 


014526 


012705 


001306 




MOV 


0TAB8.R5 




l SETUP ACO 





Sfcti 0066 



cc 



GLORAi 
KDJllA, 


ar s 15WA4 


5 ?^f' 


335' 


014532 


012701 


001126 


3352 


014536 


172415 




3353 


014540 


172014 




3354 


014542 


174011 




3355 


014544 


012704 


001316 


3356 


014550 


004 767 


165372 


3357 


014554 


005767 


164260 


3358 


014560 


001403 




3359 


014562 


104000 




3360 


014564 


000250 




3361 


014566 


002013 




3362 








3363 


014570 


012704 


001306 


3364 


014574 


012703 


001306 


3365 


014600 


012702 


003200 


3366 


014604 


170102 




3367 


014606 


172413 




3368 


014610 


061400 




3369 


014612 


174011 




3370 


014614 


004767 


165326 


3371 


014620 


005767 


164214 


3372 


014624 


001403 




3373 


014626 


104000 




3374 


014630 


00025? 




3375 


014632 


002013 




3376 








3377 


014634 






3378 








3379 








3380 


014634 






3381 








3382 








3383 








3384 


014634 






3385 


014634 


005267 


164144 


3386 


014640 


012702 


005200 


3387 


014644 


170102 




3388 


014646 


012704 


001336 


3389 


014652 


012701 


001126 


3390 


014656 


012705 


001326 


3391 


014662 


172415 




3392 


014664 


172014 




3393 


014666 


170203 




3394 


014670 


174011 




3395 


014672 


022703 


003200 


3396 


014676 


001403 




3397 


014 700 


104000 




3398 


014702 


000252 




3399 


014704 


002013 




3400 








3401 


014706 


0*2704 


001346 


3402 


014712 


004 767 


165230 


3405 


01471.:, 


005 76 7 


164116 


3404 


014722 


001403 




3405 


014/24 


104000 




3406 


014726 


000253 





) 15-MAR, 



■« 



16! ?esT PA &W! 



^) 



SUGO EXPCACO) - EXP(FSRC) 



SEQ 0067 



Hi 



MOV 

I DO 

ADOD 

5TD 

MOV 

JSfl 

TST 

BEQ 

ERROR 

.WORD 

.WORD 

MOV 

MOV 

MOV 

LDFPS 

LOO 

ADD 

STD 

JSR 

TST 

BEQ 

ERROR 

.WORD 

♦ WORD 



•RECDST.R1 

(R5),AC0 

(R4),AC0 

ACO.CRl) 

0TAB9.R4 

R7.DATVER 

COUNT 

19 

250 
FPPERR 

0TAB8.R4 

#TAB8,R3 

#3200, R2 

R2 

(R3),AC0 

(R4),AC0 

AC0,(R1) 

R7.DATVER 

COUNT 

2* 

251 
FPPERR 



2$; 



MXDF 1 : 



POINT TO RECEIVED DATA 
LOAD ACO 

♦TEST INSTRUCTION 
SAVE TEST RESULT 
POINT TO EXPECTED DATA 
VERIFY ACO DATA 

BRANCH IF GOOD 

ALL ERRORS TO TRAP TO EMT VECTOR 
UNIQUE ERROR NLTOER 
.ADDRESS OF ERROR MESSAGF 
j BAD ADDD 

SETUP SAME ACO 
ROUNO MODE 

LOAD ACO 

♦TEST INSTRUCTION 
SAVE DATA 
VERIFY ACO 

BRANCH IF GOOO 

ALL ERRORS TO TRAP TO EMT VECTOR 
UNIQUE ERROR NUMBER 
ADDRESS OF ERROR MESSAGE 
iBAD ROUND RESULT 



l*TEST 


52 


TEST ADO 


1 }****«************* + ** + * + 


TST52: 








INC 


ITESTN 




MOV 


♦3200, R2 




I.DFPS 


R2 




MOV 


*TAeil,R4 




MOV 


*RECDST,R1 




MOV 


#TAB10,R5 




LDD 


CR5).AC0 




ADDD 


(R4),AC0 




STFPS 


R3 




STD 


ACO.(Rl) 




CMP 


03?0C,R3 




BEQ 


It 




ERROR 






.WORD 


?.*2 




,WOR0 


FPPER.T 


Ui 


MOV 


4TABUA.R4 




JSR 


R/,DATVER 




rsT 


COUNT 




BEQ 


2* 




IRROR 






.WORD 


253 



EXP(FSRC) ,GT. EXP(ACO) 



1 BAD FPP 



INCREMENT TEST 
R2-FPP STATUS 
LOAD FPS STATUS 
POINT TO 
POINT TO 
POINT TO 
LOAD ACO 



NLTttER 



FSRC DATA 

ACO RESULT 

ACO DATA 

DATA 

♦TEST INSTRUCTIONS 
SAVE FPP STATUS 
SAVE ACO DATA 
VERIFY FflP STATUS 
BRANCH IF GOOO 

ALL ERRORS TO TRAP TO EMT VECTOR 
l^IQUE ERROR NUMBER 
ADDRESS OF ERROR MESSAGE 
STATUS 

POINT TO EXPECTED DATA 
VERIFY CONTENTS Of ACO 

BRANCH IF GOOO ACO 

A» I ERRORS TO TRAP TO EMT VECTOR 

UWlttUE ERROR NUMBER 



D6 



Gl.OBAt. 


ARE AS 


MAO 11 


30AC 105, 
15*51 


KDJUA. 


MAC 15 -MAR -84 


340? 


014730 


002013 




?4oa 








3409 


014732 


012704 


001356 


3410 


014736 


172415 




3411 


014 740 


172014 




3412 


014742 


012704 


001376 


3413 


014746 


174011 




3414 


014750 


004767 


165172 


3415 


014 754 


005767 


164060 


3416 


014760 


001403 




3417 


014762 


104000 




3418 


014764 


000254 




3419 


014766 


002013 




3420 








3421 


014770 


012702 


003000 


3422 


014774 


012704 


001406 


3423 


015000 


012705 


001416 


3424 


015004 


172415 




3425 


015006 


170102 




3426 


015C10 


172014 




342V 


015012 


170127 


000200 


3428 


015016 


1740M 




3429 


015020 


0127O4 


001326 


3430 


015024 


004767 


165116 


3431 


015030 


005767 


\ 64004 


3432 


015034 


00140 j 




3433 


015036 


104000 




3434 


015040 


000255 




3435 


015042 


002013 




3436 








3437 


015044 


012705 


0014,;'6 


3438 


015050 


170102 




3439 


015052 


172415 




3440 


0150!>4 


172014 




3441 


015056 


174011 




3442 


015~60 


0127O4 


001436 


3443 


015034 


004 767 


165056 


3444 


0150 70 


00576 7 


163744 


3445 


01*074 


001403 




3446 


015076 


104000 




344? 


01510C 


000256 




3448 


015102 


002013 




3449 








3450 


01510-4 






3451 








3452 








3453 








3454 


015104 






3455 








3456 








3457 








3458 


015104 






3459 


015104 


00526? 


163674 


34^0 


015110 


012702 


003200 


3 '461 


015114 


170102 




3462 


015116 


012 704 


001456 



15 -MAR 



T 



2$: 



4 
2 


l6i ^sT p a 


ib - EXPCFSR 




.WORD 


FPPERR 


. 


MOV 


*TAB12,R4 




LDD 


(R5).AC0 




AOOO 


(R4) t AC0 




MOV 


0TAB13B.R4 




STD 


ACO.CRJ ) 




JSR 


R7.DATVER 




TST 


COUNT 




BEQ 


3$ 




ERROR 






.WORD 


254 




.WORD 


FPPERR 


• 


MOV 


*30O0,R2 




MOV 


0TAB14.R4 




MOV 


OTAB15.R5 




LDD 


CR5),AC0 




LDFPS 


R2 




ADDF 


(R4),AC0 




LDFPS 


0200 




STD 


ACO, CRD 




MOV 


*TAB10,R4 




JSR 


R7,DATVER 




TST 


COUNT 




BEQ 


4$ 




ERROR 






.WORD 


255 




.WORD 


FPPERR 


: 


MOV 


*TA&16,R5 




LDFPS 


R2 




LDF 


(R5),AC0 




ADDF 


CR4),AC0 




STD 


ACO.(Rl) 




MOV 


#TAB17,R4 




JSR 


R7 # DATVER 




TST 


COUNT 




BEQ 


5$ 




ERROR 






.WORD 


2-)6 




.WORD 


FPPERR 



5$: 



,GT. EXP(ACO) 

I ADDRESS OF ERROR MESSAGE 
iBAD ACO, SHOULD - FSRC 

POINT TO FSRC DATA 

ACO 

♦TEST INSTRUCTION 

POINT TO EXPECTED RESULT 

SAVE ACO DATA INTO RECDAT 

VERIFY DATA 

BRANCH IF GOOD DATA 
ALL ERRORS TO TRAP TO EMT VECTOR 
UNIQUE ERROR NUMBER 
ADDRESS OF ERROR MESSAGE 
I BAD ACO DATA 

GET FPP STATUS DATA 

POINT TO FSRC DATA 

POINT TO ACO DATA 

LOAO ACO 

FPP STATUS - FLOAT, INTERRUPTS ENABLE 

♦TEST INSTRUCTION 

RESET TO DOUBLE 

RECDST-ACO 

POINT TO GOOD DATA 

jVERFIY CONTENTS OF ACO 

BRANCH IF GOOD 

ALL ERRORS TO TRAP TO EMT VECTOR 
UNIQUE ERROR NUMBER 
ADDRESS OF ERROR MESSAGE 
jBAD FLOATING ADD 

POINT TO ACO DATA 
FPP STATUS • FLOAT 
LOAD ACO 
♦TEST INSTRUCTION 

j SAVE ACO DATA 
POINT TO GOOD DATA 



BRANCH IF GOOO 

ALL ERRORS TO TRAP TO EMT VECTOR 
UNIQUE ERROR NUMBER 
ADDRESS OF ERROR MESSAGE 
jBAD FLOATING ADD 



SEQ 0068 



MNGOP: 

, t ******** ********** ***** *********************** ***************** 

l ♦TEST 53 TEST ADDD WITH NEGATIVE OPERANOS 

•J********************, t ********** \ ******************************* 

TST53s 

INC ITESTN t INCREMENT TEST NUMBER 

MOV 03200, R2 iLOAD FPS VALUE 

LDFPS R2 i 

MOV 0TAB21.R4 jOATA ADDRESS FOR ACO AND FSR 



E6 



GLOBAL 


AREAS 


MACU1 


30AC1052) 15-M 


KDJUA. 


MAC 15-MAR-84 


15*51 


3463 


015122 


172414 




3464 


015124 


172014 




3465 


015126 


170203 




3466 


015130 


012701 


001126 


3467 


015134 


174011 




3468 


015136 


022703 


003210 


3469 


015142 


001403 




3470 


015144 


104000 




3471 


015146 


000257 




3472 


015150 


002013 




3473 








3474 


015152 


012704 


001466 


3475 


015156 


004767 


164764 


34 76 


015162 


005767 


163652 


34 7 7 


015166 


001403 




3478 


015170 


104000 




3479 


015172 


000260 




3480 


015174 


002013 




3481 








3482 








3483 


015176 


012704 


001456 


3484 


015202 


012701 


001476 


3485 


015206 


012737 


015230 000244 


3486 


015214 


172411 




3487 


015216 


172014 




3488 


015220 


170000 




3489 


015222 


104000 




3490 


015224 


000261 




3491 


015226 


002013 




3492 








3493 


015230 


170203 




3494 


015232 


012^01 


001126 


3495 


015236 


174011 




3496 


015240 


022703 


103200 


3497 


015244 


OO1403 




3498 


015246 


104 OOO 




3499 


015250 


000262 




3500 


015252 


002013 




3501 








3502 


015254 


012605 




3503 


015256 


020527 


015220 


3504 


015262 


001403 




3505 


015264 


104000 




3506 


015266 


000263 




3507 


015270 


002013 




3508 








3509 


015272 


005726 




3510 


015274 


012704 


001506 


3511 


015300 


004*67 


16464? 


3512 


015304 


005767 


163530 


3515 


015310 


001403 




3514 


015312 


104000 




3515 


015314 


000264 




3516 


015316 


002013 




3517 








3518 









t-84 
T53 



16:58 PAGE 69 
TEST AODD WITH 



NEGATIVE OPERANDS 



SEQ 0069 



1* 



2$; 



100$ 



101$ 



3$: 



102* 



LDD 

ADDD 

STFPS 

MOV 

STO 

CMP 

OEQ 

ERROR 

.WORD 

.WORD 

MOV 

JSR 

TST 

BEQ 

ERROR 

.WORD 

.WORD 

i 

MOV 

MOV 

MOV 

LDD 

ADDD 

CFCC 

ERROR 

.WORD 

.WORD 

STFPS 

MOV 

STD 

CMP 

BEQ 

ERROR 
.WORD 
.WORD 

MOV 
CMP 
BEQ 
ERROR 

.WORD 
.WORD 

TST 

MOV 

JSR 

TST 

BEQ 

ERROR 

.WORD 

.WORD 

J 



(R4J.AC0 

CR4),AC0 

R3 

0RECDST.R1 

ACO.(Rl) 

03210, R3 

1* 

257 
FPPERR 

0TAB22.R4 
R7.DATVER 
COUNT 
2$ 

260 
FPPERR 



•ACO! 



! -FSRC! 

0TAB21,R4 

OTAB23.R1 

*101$,BOFPVEC 

(Rl).ACO 

(R4) # AC0 



261 
FPPERR 

R3 

0RECDST.R1 
ACO.(Rl) 
0103200, R3 
3* 

262 
FPPERR 

(SP)>,R5 
R5.0100* 
102$ 

265 
FPPERR 

(SP)* 

0TAB24.R4 

R7.DATVER 

COUNT 

4$ 

264 
FPPERR 



J 



ACO-100200 

♦TEST INSTRUCTION 

SAVE STATUS 

POINT TO RECEIVED DATA TABLE 

SAVE ACO DATA 

VERIFY STATUS 

BRANCH IF GOOD 

ALL ERRORS TO TRAP TO EMT VECTOR 

UNIQUE ERROR NUMBER 

ADDRESS OF ERROR MESSAGE 

POINT TO EXPECTED DATA 

VERIFY DATA 

BRANCH IF GOOD 

ALL ERRORS TO TRAP TO EMT VECTOR 

UNIQUE ERROR NUMBER 

ADDRESS OF ERROR MESSAGE 



! -ACO! 



!FSRC! 



POINT TO FSRC DATA 

POINT TO ACO DATA 

SETUP FP VECTOR 

LOAO ACO 

♦TEST INSTRUCTION 

COPY FPP CC 

ALL ERRORS TO TRAP TO EMT VECTOR 

UNIQUE ERROR NUMBER 

ADDRESS OF ERROR MESSAGE 
;G0 TO ERROR 

SAVE FPP S T ATUS 

{POINT TO RECEIVED DATA TABLE 

SAVE ACO DATA 

VERIFY STATUS 
i BRANCH IF GOOD 

5 ALL ERRORS TO TRAP TO EMT VECTOR 
s UNIQUE ERROR NUMBER 
j ADDRESS Of ERROR MESSAGE 
{BAD STATUS 

I GET ERROR PC 

{VERIFY ERROR ADDRESS ON STACK 
I BRANCH IF GOOD 

; ALL ERRORS TO TRAP TO EMT VECTOR 
{UNIQUE ERROR NUMBER 
j ADDRESS OF ERROR MESSAGE 
{BAD ERROR RETURN ON STACK 
;RESTORE STACK 

jPOINT TO EXPECTED DATA TABLE 
{VERIFY DATA 

jBRANC IF GOOD 

{ALL ERRORS TO TRAP TO EMT VECTOR 
{UNIQUE ERROR NUMBER 
; ADDRESS OF ERROR MESSAGE 
{BAD ACO DATA 



F6 



GLOBAL ARK AS 
KDJ11A.MAC 



MACY11 30AC1052) 
15-MAR-84 15:51 



15-MAR-84 

T53 



16:58 PAGE 70 
TEST ADDD WITH 



NEGATIVE OPERANDS 



SEQ 0070 



3519 

3520 

3521 

3522 

3523 

3524 

3525 

3526 

3527 

3528 

3529 

3530 

3531 

3532 

3533 

3534 

3335 

3536 

3537 

3538 

3539 

3540 

3541 

3542 

3543 

3544 

3545 

3546 

354 7 

3548 

3549 

3550 

3551 

3552 

3553 

3554 

3555 

3556 

3557 

3558 

3559 

3560 

3561 

3562 

3563 

3564 

3565 

3566 

3567 

3568 

3569 

3570 

3571 

3572 

357 3 

3574 



015320 
015324 
015330 
015336 
015342 
015344 
015346 
015350 
015352 
015354 
015356 

015360 
015362 
015366 
015370 
015374 
015376 
015400 
015402 

015404 
015406 
015412 
015*14 

015416 
015420 

015422 
015424 
015430 
015434 
015440 
015442 
015444 
015446 



015450 
015454 
015460 
015464 
015466 
015474 
015476 
015500 
015502 
015506 
015510 
015514 
015516 
015520 
015522 

015524 
015530 



012704 
012701 
012737 
012702 
170102 
172411 
172014 
170000 
104000 
000265 
002013 

170203 
012701 
174011 
022703 
001403 
104000 
000266 
002013 

012605 
020527 
001*03 
104000 
000267 
002013 

005726 
012704 
004767 
005767 
001403 
104000 
000270 
002013 



012704 
012701 
012702 
170102 
012737 
172411 
172014 
170203 
012701 
174011 
020327 
001403 
104000 
0002 71 
002013 

012704 
004 767 



001476 

001456 

015360 000244 

003200 



001126 
103200 



015350 



001506 
164512 
163400 



4$: 



103$: 



104$: 



5$: 



105$: 



001526 
001516 
003200 

000246 000244 



001126 
003200 



6$ 



001536 
164412 



7$ 



MOV 

MOV 

MOV 

MOV 

LDFPS 

LDD 

ADDD 

CFCC 

ERROR 

.WORD 

.WORD 

STFPS 

MOV 

STD 

CMP 

BEQ 

ERROR 

.WORD 

.WORD 

MOV 

CMP 

BEQ 

ERROR 

.WORD 

.WORD 

TST 

MOV 

JSR 

TST 

BEQ 

ERROR 

.WORD 

.WORD 



MOV 

MOV 

MOV 

LDFPS 

MOV 

LDD 

ADDD 

STFPS 

MOV 

STD 

CMP 

BEQ 

ERROR 

.WORD 

.WORD 

MOV 
JSR 



OTAB23.R4 

0TAB21.R1 

0104$,Q0FPVEC 

03200 ,R2 

R2 

(Rl).ACO 

(R4),AC0 



265 
FPPERR 

R3 

0RECDST.R1 
ACO.(Rl) 
0303200, R3 
5$ 

266 
FPPERR 

CSP)».R5 

R5,O103$ 
105$ 

267 
FPPERR 

(SP)* 

OTAB24.R4 

R7.DATVER 

COUNT 

6$ 

270 
FPPERR 

J-FSRC! < 

0TAB26.R4 

0TAB25.R1 

03200.R2 

R2 

0246.BOFPVEC 

(Rl).ACO 

(R4),AC0 

R3 

0RECDST.R1 

AC0.CR1) 

R3, 03200 

7$ 

271 
FPPERR 

OTAB27,R4 
R7»DATVER 



jPOINT TO FSRC DATA 

j POINT TO ACO DATA 

{SETUP FP VECTOR 

{LOAD FPS VALUE 



{LOAD ACO DATA 
{♦TEST INSTRU 
;COPY FPP CC 
{ALL ERRORS TO 
{UNIQUE ERROR 



TION 

TRAP TO EMT VECTOR 
NUMBER 



{UNIQUE ERROR NUMBER 
{ADDRESS OF ERROR MESSAGE 
jGO TO ERROR 

{SAVE FPS 
{SAVE ACO 

{VERFIY STATUS 

{BRANCH IF GOOD 

;ALL ERRORS TO TRAP TO EMT VECTOR 

{UNIQUE. ERROR NUMBER 

{ADDRESS OF ERROR MESSAGE 
{BAD FPS STA1 

{GET hnROW PC 

{VERIFY ERROR ADDRESS ON STACK 

{BRANCH IF GOOO 

{ALL ERRORS TO TRAP TO EMT VECTOR 

{UNIQUE ERROR NUMBER 

{ADDRESS OF ERROR MESSAGE 
{BAD ERROR RETURN ON STACK 

{RESTORE STACK 

{POINT TO EXPECTED DATA 



{BRANCH IF GOOD 

;ALL ERRORS TO TRAP TO EMT VECTOR 

{UNIQUE ERROR NUMBER 

{ADDRESS OF ERROR MESSAGE 



{BAD ACO 
•ACO! 



{BAD FPS 



{POINT TO FSRC DATA 
{POINT TO ACO DATA 
{LOAD FPS VALUE 

! SETUP FP VECTOR 

{LOAD ACO DATA 

{ *TEST INSTRUCTION 

{SAVE STATUS 

{POINT TO RECEIVED DATA TABLE 

{SAVE ACO 

{VERIFY STATUS 
{BRANCH IF GOOD 

{ALL ERRORS TO TRAP TO FMT VECTOR 
{UNIQUE ERROR NUTOER 
{ADDRESS OF ERROR MESSAGE 

jPOINT TO EXPECTED DSATA 
{VERIFY DATA 



G6 



GLOBAL 


AREAS 


macyii 


30AC1052) 


15 -MAR -84 16 


:58 PAGE 71 




KDJUA. 


MAC 15-MAR-84 


15:51 


T53 


TEST ADOD WITH NEGATIVE 


OPERANDS 


3575 


015534 


005 7 67 


163300 




1ST 


COUNT 




3576 


015540 


001403 






BEQ 


8$ 




3577 


015542 


104000 






ERROR 






3578 


015544 


000272 






.WORD 


272 




3579 


015546 


002013 






.WORD 


FPPERR 




3580 














j 


3581 










i 


IFSRC! > 


!-ACi 


3582 


015550 


012704 


001516 


6$: 


MOV 


0TAB25.R4 




3583 


015554 


012701 


001526 




MOV 


0TAB26.R1 




3584 


015560 


172411 






LDO 


CRD.ACO 




3585 


015562 


172014 






ADOD 


(R4),AC0 




3586 


015564 


170203 






STFPS 


R3 




3587 


015566 


012701 


001126 




MOV 


4RECDST.R1 




3588 


015572 


174011 






STD 


AC0.CR1) 




3589 


015574 


020327 


003200 




CMP 


R3, 03200 




3590 


015600 


001403 






BEQ 


9$ 




3591 


015602 


104000 






ERROR 






3592 


015604 


000273 






.WORD 


273 




3593 


015606 


002013 






.WORD 


FPPhRR 




3594 














jBAD FPS 


3595 


015610 


012704 


001536 


9$: 


MOV 


OTAB27.R4 




3596 


015614 


004767 


164326 




JSR 


R7.DATVER 




3597 


015620 


005767 


163214 




TST 


COUNT 




3590 


015624 


001403 






BEQ 


10$ 




3599 


015626 


104000 






ERROR 






3600 


015630 


000274 






.UORD 


274 




3601 


015632 


002013 






.WORD 


FPPERR 




3602 














j BAD ACO 


3603 










♦ 


J-FSRC! < 


•ACO! 


3604 


015634 


012704 


001556 


10$: 


MOV 


OTAB29.R4 




3605 


015640 


012701 


001546 




MOV 


*TAB28,R1 




3606 


015644 


172411 






LDD 


CRD.ACO 




3607 


015646 


172014 






ADDD 


(R4).AC0 




3608 


015650 


170203 






STFPS 


R3 




3609 


015652 


012701 


001126 




MOV 


0RECDST.R1 




3610 


015656 


174011 






STD 


ACO.(Rl) 




3611 


015660 


020327 


003200 




CMP 


R3.03200 




3612 


015664 


001403 






BEQ 


11$ 




3613 


015666 


104000 






ERROR 






3614 


015670 


000275 






.WORD 


275 




3615 


015672 


002013 






.WORD 


FPPERR 




3616 














j BAD FPS 


3617 


0156 74 


012704 


001566 


11$: 


MOV 


4TAB29A.R4 




3618 


0157C0 


004767 


164242 




JSR 


R 7, DA TVER 




3619 


015704 


005767 


163130 




TST 


COUNT 




3620 


015710 


001403 






BEQ 


12$ 




3621 


015712 


104000 






EPROR 






3622 


015714 


000276 






.UORD 


276 




3623 


015716 


002013 






.WORD 


FPPERR 




3624 














} 


3625 


015720 






12$: 








3626 
















3627 








5 








3628 








i 








3629 


015720 






MSB; 








3630 








j ,•+ + *** 


*******< 


***************** 


********* 



SEQ 0071 



I 

j BRANCH IF GOOD 

l ALL ERRORS TO TRAP TO EMT VECTOR 

{UNIQUE ERROR NUMBER 

j ADDRESS OF ERROR MESSAGE 



{POINT TO FSRC DATA 

i POINT TO ACO DATA 

{LOAD ACO DATA 

j*TEST INSTRUCTION 

{SAVE STATUS 

{POINT TO RECEIVED DATA TABLE 

{SAVE ACO 

{VERIFY STATUS 
{BRANCH IF GOOD 

;ALL ERRORS TO TRAP TO EMT VECTOR 
{UNIQUE ERROR NUMBER 
{ADDRESS OF ERROR MESSAGE 

{POINT TO EXPECTED DSATA 
{VERIFY DATA 

{BRANCH IF GOOD 

jALL ERRORS TO TRAP TO EMT VECTOR 

{UNIQUE ERROR NUMBER 

{ADDRESS OF ERROR MESSAGE 



{POINT TO FSRC DATA 

{POINT TO ACO DATA 

{LOAD ACO DATA 

j*TEST INSTRUCTION 

• SAVE STATUS 

SPOINT TO RECEIVED DATA TABLE 

{SAVE ACO 

{VERIFY STATUS 
{BRANCH IF GOOD 

{ALL ERRORS TO TRAP TO EMT VECTOR 
{UNIQUE ERROR NUMBER 
{ADDRESS OF ERROR MESSAGE 

{POINT TO EXPECTED DATA 
{VERIFY DATA 

! BRANCH IF GOOD 

{ALL ERRORS TO TRAP TO EMT VECTOR 

{UNIQUE ERROR NUMBER 

{ADDRESS OF ERROR MESSAGE 



H6 



GLOBAL 


ARFAS 


MACU1 


50A(105i 


KOJ11A, 


MAC 15-MAR-84 


15:51 


5651 








5652 








5655 


015720 






5654 


015720 


005267 


165060 


3655 


015724 


012702 


003200 


3656 


015750 


170102 




3637 


015752 


012704 


001456 


5658 


015756 


012701 


001126 


5659 


015742 


172414 




5640 


015744 


173014 




3641 


015746 


170203 




5642 


015750 


174011 




564 5 


015752 


022703 


003204 


5644 


015756 


001403 




3645 


015760 


104000 




5646 


015762 


000277 




564 7 


015764 


002013 




5648 








5649 


015766 


012704 


001256 


5650 


015772 


004 76 7 


164150 


5651 


015776 


005767 


163036 


5652 


016002 


001403 




5655 


016004 


104000 




5654 


016006 


000300 




5655 


016010 


002013 




5656 








3657 


016012 


012704 


001406 


3658 


016016 


172414 




5659 


016020 


173014 




3660 


016022 


170203 




3661 


016024 


174011 




3662 


016026 


022703 


003204 


3663 


016032 


001405 




3664 


016034 


104000 




3665 


016036 


000301 




3666 


016040 


002013 




5667 








5668 


016042 


012704 


001256 


3669 


016046 


004 767 


164074 


36 70 


016052 


00576 7 


162762 


3671 


016056 


001405 




3672 


016060 


104000 




3673 


016062 


000302 




3674 


016064 


002013 




3675 








5676 


016066 






567? 








36/8 








5679 


016066 






3680 








3681 








3682 








3683 


016066 






3684 


016066 


00526 7 


162/12 


5685 


016072 


012702 


003200 


3686 


016076 


17C102 





15-MAR-84 16:58 PAGE 72 

T54 TEST SUB WITH EXPf ACO] * EXP [FSRC ] 

T 54 TEST SUB WITH EXP[ ACO ] -EXP[FSRC ] 

* * * * * * * * ** * * * * * ♦ * * * * * * + * *** * ♦ * ** + * * * * * * * * * * * * * * * * * * * * * * * * * * * 



SEQ 0072 



s*TES 

{ ;+** 

TST54 



1$: 



2$: 



3$ 



4$ 



INC 

MOV 

LDFPS 

MOV 

MOV 

LDD 

SUBD 

STFPS 

STD 

CMP 

BEQ 

ERROR 

.WORD 

.WORD 

MOV 

JSR 

TST 

BEQ 

ERROR 

.WORD 

.WORD 

MOV 

LDD 

SUBD 

STFPS 

STD 

CMP 

BEQ 

ERROR 

.WORD 

.WORD 

MOV 

JSR 

TST 

BEQ 

ERROR 

.WORD 

.WORD 



ITESTN 

03200, R2 

R2 

0TAB21.R4 

0RECDST.R1 

CR4),AC0 

(R4),AC0 

R3 

ACO.CRD 

05204 t R5 

1* 

277 
FPPERR 

OTAB6.R4 
R7.DATVER 
COUNT 
2$ 

300 
FPPERR 

0TAB14,R4 

(R4),AC0 

CR4),AC0 

R3 

ACO, CRD 

03204, R3 

3$ 

301 
FPPERR 

0TAB6,R4 
R7.DATVER 
COUNT 
4t 

302 
FPPERR 



I INCREMENT TEST NUMBER 

{LOAD FPS DATA 

{LOAD FPS 

{POINT TO FSRC DATA 

{POINT TO ACO RECEIVED DATA TABLE 

jLOAD ACO 

{♦TEST INSTRUCTION 
{SAVE STATUS 
{SAVE ACO INTO RECDST 
{VERIFY STATUS 
{BRANCH IF GOOD 

{ALL ERRORS TO TRAP TO EMT VECTOR 
{UNIQUE ERROR NU18ER 
{ADDRESS OF ERROR MESSAGE 
{BAD FPS STATUS 

jPOINT TO EXPECTED DATA 
j VERIFY ACO 

'{BRANCH IF GOOD 

{ALL ERRORS TO TRAP TO EMT VECTOR 

{UNIQUE. ERROR NUMBER 

{ADDRESS OF ERROR MESSAGE 



{BAD ACO 



{BAD ACO 



{BAD ACO 



{POINT TO FSRC AND ACO DATA 

{LOAD ACO DATA 

{♦TEST INSTRUCT]. Oh' 
{SAVE FPS 

{SAVE ACO INTO RECDST 

{VERIFY FPS 
{BRANCH IF GOOD 

j ALL ERRORS TO TRAP TO EMT VECTOR 
{UNIQUE ERROR NUMBER 
{ADDRESS OF ERROR MESSAGE 

{POINT TO EXPECTED DATA 
{VERIFY ACO 

{BRANCH IF GOOD 

;ALL ERRORS TO TRAP TO EMT VECTOR 

{UNIQUE ERROR NUMBER 

{ADDRESS OF ERROR MESSAGE 



MNRM: 

{♦TEST 55 TEST NORMALIZE 

TST55: 

INC ITESTN {INCREMENT TEST NUMBER 

MOV 05200, R2 {LOAD FPS 

LDFPS R2 i 



16 



GLOBAL 


AREAS 


MACU1 


30AC1052) 


15-MAR-84 16 


:58 PAGE 73 


KDJ11A. 


MAC 15-MAR-84 


15:51 


T55 


TEST NORMALIZE 


3687 


016100 


012705 


001606 




MOV 


GTAB31.R5 


3688 


016104 


012701 


001576 




MOV 


OTAB30,R1 


3689 


016110 


172411 






LDD 


(Rl).ACO 


3690 


016112 


173015 






SU8D 


(R5),AC0 


3691 














3692 


016114 


170203 






STFPS 


R3 


3693 


016116 


012704 


001126 




MOV 


0RECDST,R4 


3694 


016122 


174014 






STD 


AC0.CR4) 


3695 


016124 


012701 


001636 




MOV 


*TAB34,R1 


3696 


016130 


004 767 


164012 




JSR 


R7.DATVER 


3697 


016134 


005767 


162700 




TST 


COUNT 


3698 


016140 


001403 






BEQ 


H 


3699 


016142 


104000 






ERROR 




3700 


016144 


000303 






.WORD 


303 


3701 


016146 


002013 






.WORD 


EPPERR 


3702 














3703 


016150 


012701 


001616 


U: 


MOV 


OTAB32.R1 


3704 


016154 


012705 


001626 




MOV 


OTAB33.R5 


3705 


016160 


172411 






LUD 


(Rl).ACO 


3706 


016162 


173015 






SU8D 


CR5),AC0 


3707 














3 708 


016164 


012701 


001126 




MOV 


*RECDST,R1 


3709 


016170 


174011 






STD 


ACO.(Rl) 


3710 


016172 


004 767 


163750 




JSR 


R7.DATVER 


3711 


016176 


005767 


162636 




TST 


COUNT 


3712 


016202 


001403 






BEQ 


2$ 


3713 


016204 


104000 






EKROR 




3714 


016206 


000304 






.WORD 


304 


3715 


016210 


002013 






.WORD 


EPPERR 


3716 














3717 


016212 






2$: 






3718 














3719 


016212 






MUVAD; 






3720 








j j ************************ 


3721 








i *TEST 


56 


TEST ADDO 


3722 








• ; ************************ 


3723 


016212 






TST56: 






3724 


016212 


005267 


162566 




INC 


iTESTN 


3725 


016216 


012702 


000200 




MOV 


0200, R2 


3726 


016222 


170102 






LDFPS 


R2 


3727 


016224 


012704 


001646 




MOV 


*TAB40,R4 


3728 


016230 


012701 


001646 




MOV 


0TAB40,R1 


3 729 


016234 


172411 






LDD 


(Rl).ACO 


3730 


016236 


172014 






ADOD 


(R4),AC0 


3731 


016240 


170203 






STFPS 


R3 


3732 


016242 


012701 


001126 




MOV 


0RECDST.R1 


3735 


016246 


174011 






STD 


AC0.CR1) 


3734 


016250 


022703 


000206 




CMP 


0206, R3 


3735 


016254 


001403 






BEQ 


1$ 


3 736 


016256 


104000 






ERROR 




3737 


016260 


000305 






.WORD 


305 


3 738 


016262 


002013 






.WORD 


EPPERR 


37 39 














3740 


016264 


012704 


001256 


li: 


MOV 


0TAB6.R4 


3/41 


016270 


004767 


163652 




JSR 


R7.DATVER 


3742 


016274 


005767 


162540 




TST 


COUNT 



SEQ 0073 



{POINT TO FSRC DATA 
{POINT TO ACO DATA 
{LOAD ACO 

{♦TEST INSTRUCTION 
it LEFT SHIFT 
{SAVE STATUS 
{POINT TO RECDATA 

{SAVE ACO 
{POINT TO EXPECTED DATA 

{VERIFY DATA 

{BRANCH IF GOOD 

{ALL ERRORS TO TRAP TO EMT VECTOR 

{UNIQUE ERROR NUMBER 

{ADDRESS OF ERROR MESSAGE 

jACO DATA 

{FSRC DATA 

{LOAD ACO 
{♦TST INSTRUCTION 
{56 LEFT SHIFTS 

{SAVE DATA 



jALL ERRORS TO TRAP TO EMT VECTOR 
{UNIQUE ERROR NUMBER 
{ADDRESS OF ERROR MESSAGE 



I***************** ******** ************ 

{INCREMENT TEST NUMBER 

{SETUP FLOATING POINT STATUS 

{LOAD FPS 

{POINT TO FSRC DATA 
{POINT TO ACO DATA 
jLOAD ACO WITH TEST DATA 

j*TEST INSTRUCTION 

iSAVF FPS 

{POINT TO RECEIVED DATA TABLE 

{SAVE ACO RESULT 

{VERIFY STATUS 

{BRANCH IF GOOD 

{ALL ERRORS TO TRAP TO EMT VECTOR 

{UNIQUE ERROR NUMBER 

{ADDRESS 0** ERROR MESSAGE 



{BAD FPS 



{POINT JO EXPECTED DATA 
{VERIFY DATA 



J 6 



GLOBAL 


AREAS 


MACYli 


30AC1052: 


) 15-MAR-84 


16 j 58 PAGi 


t 74 




KDJ11A. 


MAC 15-MAR-84 


15;51 




T56 


TEST ADDD WITH OVERFLOW 


AND UNDEI 


3743 


016300 


001403 








BEQ 


2* 




3744 


016302 


104000 








ERROR 






3745 


016304 


000306 








.WORD 


306 




3746 


016306 


002013 








.WORD 


FPPERR 




374 7 
















{BAD ACO 


3748 










; OVERFLOW TRAPS 


ENABLED 




3749 


016310 


012702 


001200 




2$: 


MOV 


$1200, R2 




3750 


016314 


170102 








LDFPS 


R2 




3751 


016316 


012704 


001646 






MOV 


4TAB40.R4 




3752 


016322 


012701 


001646 






MOV 


$TAB40,R1 




3753 


016326 


172411 








LDD 


(RD.ACO 




3754 


016330 


012737 


016350 


000244 




MOV 


03$,S$FPVEC 




3755 


016336 


172014 








ADOD 


CR4),AC0 




3756 


016340 


170000 






23$: 


CFCC 






3757 


016342 


104000 








ERROR 






3758 


016344 


000307 








.WORD 


307 




3759 


016346 


002013 








.WORD 


FPPERR 




3760 
















1 FAILED 


3761 


016350 


170203 






3$: 


STFP5 


R3 




376? 


016352 


012701 


001126 






MOV 


^RECDST.Rl 




3763 


016356 


174011 








STD 


AC0.CR1) 




3764 


016360 


022703 


101206 






CMP 


$101206, R3 




3765 


016364 


001403 








BEQ 


4$ 




3 766 


016366 


104000 








ERROR 






3767 


016370 


000310 








.WORD 


310 




3768 


016372 


002013 








.WORD 


FPPERR 




3769 
















j BAD FPS 


3770 


016374 


012600 






4$: 


MOV 


(SP)*,RO 




3771 


016376 


022700 


016340 






CMP 


423*. RO 




3772 


016402 


001403 








BEQ 


5* 




3773 


016404 


104000 








ERROR 






3774 


016406 


000311 








.WORD 


311 




37 75 


016410 


002013 








.WORD 


FPPERR 




3776 
















;BAD RETi 


3 777 


016412 


012600 






5$: 


MOV 


(SP)».RO 




37 78 


016414 


012704 


001256 






MOV 


0TAB6.R4 




3779 


016420 


004 767 


163522 






JSR 


R7.DATVER 




3780 


016424 


005767 


162410 






TST 


COUNT 




3781 


016430 


001403 








BEQ 


7* 




3782 


016432 


104000 








ERROR 






3783 


016434 


000312 








.WORD 


312 




3/84 


016436 


002013 








.WORD 


FPPERR 




3785 
















i BAD ACO 


3786 










{ UNDERFLOW TRAPS DISABLED 




378/ 


016440 


012702 


000200 




7$: 


MOV 


0200, R2 




3788 


016444 


170102 








LDKPS 


R2 




3789 


016446 


012737 


002106 


000244 




MOV 


aWLDTRP.MOFPVfcC 




3 790 


016454 


012704 


001276 






MOV 


OTAB7.R4 




3791 


016460 


012701 


001656 






MOV 


0TAB41.R1 




3 7^2 


016464 


1724L1 








I DO 


(Rn.ACO 




3 7 93 


016466 


172014 








MODD 


( R4 ) , AGO 




3794 


016470 


170203 








^:tfps 


R3 




3795 


0X64 72 


012/01 


001126 






MOV 


WECDST.R1 




3 796 


0164 76 


174011 








STD 


AGO, (HI) 




379 7 


016500 


022/03 


000204 






CMP 


0204, R 3 




3798 


016504 


001403 








oEO 


8* 





SEQ 0074 



; BRANCH IF GOOD 

>ALL ERRORS TO TRAP TO EMT VECTOR 

j UNIQUE ERROR NUMBER 

j ADDRESS OF ERROR MESSAGE 



{SETUP FLOATING POINT STATUS 
{LOAD FPS 

{POINT TO FSRC DATA 

{POINT TO ACO DATA 

{LOAD ACO WITH TEST DATA 
{CHANGE TRAP VECTOR 
}*TEST INSTRUCTION 

{ALL ERRORS TO TRAP TO EMT VECTOR 

{UNIQUE ERROR NUMBER 

{ADDRESS OF ERROR MESSAGE 

TO TRAP ON OVERFLOW 

{SAVE FPS 

{POINT TO RECEIVED DATA TABLE 

{SAVE ACO RESULT 

jVERIFY STATUS 
{BRANCH IF GOOD 

tALL ERRORS TO TRAP TO EMT VECTOR 
{UNIQUE ERROR NUM8ER 
{ADDRESS OF ERROR MESSAGE 

{CHECK STORED PC 

J 

{BRANCH IF RETURN ADDRESS IS GOOD 

; ALL ERRORS TO TRAP TO EMT VECTOR 

{UNIQUE ERROR NL*16ER 

{ADDRESS OF ERROR MESSAGE 

URN ADDRESS 

{CLEAN UP STACK 

{POINT TO EXPECTED DATA 

{VERIFY DATA 

{BRANCH IF GOOD 

{ALL ERROns TO TRAP TO EMT VECTOR 

{UNIQUE ERROR NUMBER 

{ADDRESS OF ERROR MESSAGE 



{SETUP FLOATING POINT STATUS 

{LOAD FPS 

{REPLACE WILD TRAP VECTOR 
iPOINT TO FSRC DATA 
jPOIN'l TO ACO DATA 
jlOAl) ACO WITH TEST DATA 

I* TEST INSTRUCTION 

{SAVE FPS 

{POINT TO 

j SAVE ACO 



RECEIVED DAfA 7 ABLE 

wesu.T 



iVERIrl 

{BRANCH 



STATUS 
IF GUOO 



I<6 



GLOBAL. AREAS 
KDJ11A.MAC 



3799 
3800 
3801 
3802 
3803 
3604 
3805 
3806 
3807 
3808 
3809 
3810 
3811 
3812 
3813 
3814 
3815 
3816 
3817 
3818 
3819 
3820 
3821 
3822 
3823 
3824 
3825 
3826 
3827 
3826 
3829 
3830 
3831 
3832 
3833 
3834 
3835 
3836 
3837 
3838 
3839 
3840 
3841 
3842 
3843 
3844 
3845 
3846 

384 7 
3848 
3849 

3850 
3851 
3852 

385 5 
3854 



016506 
016510 
016512 

016514 
016520 
016524 
016530 
016532 
016534 
016536 



016540 
016544 
016546 
016554 
016560 
03.6564 
016566 
016570 
016572 
016574 
016576 

016600 
016602 
016606 
01661C 
016614 
016616 
016620 
016622 

016624 
016626 
016632 
016634 
016636 
016640 

016642 
016644 
016650 
016654 
016660 
016662 
016664 
016666 



0166/0 
016674 
016676 
016704 
016710 



MACY11 30AU052) 
15-MAR-84 15;5i 

104000 
000313 
002013 



15 -MAR -84 
T56 



16:58 PhGE 75 
TEST ADDD WITH 

ERROR 

,UORD 313 
.WORD FPPERR 



OVERFLOW AND UNDERFLOW 



SF.Q 0075 



012704 
004 767 
005767 
001403 

104000 
000314 
002013 



012702 
170102 
012737 
012704 
012701 
172411 
172014 
170000 
.104000 
000315 
002013 

170203 
012 T01 
174011 
022703 
001403 
104000 
000316 



012605 
020527 
001403 
104000 
000317 
002013 

005726 
012704 
004 767 
005767 
001403 
104000 
000320 
002013 



012702 
170102 
012737 
012704 
012701 



001256 
163422 
162310 



8$t 



MOV 

J5R 

TST 

BEQ 

ERROR 

.WORD 

.WORD 



OTAB6.R4 

R7.DATVER 

COUNT 

9$ 

314 

FPPERR 



j BAD FPS 



002200 

016600 000244 

001276 

001656 



{UNDERFLOW TRAPS ENABLED 



001126 
102210 



016570 



001246 
163272 
162160 



000200 

002106 000244 

001656 

001666 



9$: MOV 

LDFPS 

MOV 
MOV 
MOV 
LDD 
ADDD 
10*: CFCC 
ERROR 
. WORD 
.WORD 

11$: STFPS 

MOV 
STD 
CMP 
BEQ 
ERROR 
. WORD 

.WORD 

12$: MOV 
CMP 
BEQ 
ERROR 

.WORD 
.WORD 

13$: TST 

MOV 

JSR 

TST 

BEQ 

cRROR 

.WORD 

.WORD 

j UNDERFLOW WITH 
14$; MOV 

LDFPS 

MOV 
MOV 
MOV 



42200, R2 

R2 

*11$,8*FPVEC 

OTAB7.R4 

*TAB41 # R1 

(Rl).ACO 

(84), ACO 



315 
FPPERR 

R3 

*RECDST,R1 
AC0.CR1) 
#102210, R3 
12$ 

316 
FPPERR 

(SP)*,R5 

R5,01O$ 

13$ 

31/ 

FPPERR 

CSP)» 

«TAB5A,R4 

R7.DATVER 

COUNT 

14$ 

320 
FPPERR 

TRAPS DISBLED - 

0200, R2 

R2 

OWLDTRP.SOFPVEC 
*TAB41,R4 

0TAB42.R1 



I ALL ERRORS TO TRAP TO EMT VECTOR 
i UNIQUE ERROR NUMBER 
{ADDRESS OF ERROR MESSAGE 

jPOINT TO EXPECTED DATA 
I VERIFY DATA 

{BRANCH IF GOOD 

{ALL ERRORS TO TRAP TO EMT VECTOR 
{UNIQUE ERROR NUMBER 
{ADDRESS OF ERROR MESSAGE 
I BAD ACO 

{SETUP FLOATING POINT STATUS 
{LOAD FPS 
{REPOSITION TRAP VECTOR 

{POINT TO FSRC DATA 

{POINT TO ACO DATA 

{LOAD ACO WITH TEST DATA 
{♦TEST INSTRUCTION 
j COPT Y FPP CC 

{ALL ERRORS TO TRAP TO EMT VECTOR 
j UNIQUE ERROR NUMBER 
{ADDRESS OF ERROR MESSAGE 
{FAILED TO TRAP ON UNDERFLOW 
{SAVE FPS 

{POINT TO RECEIVED DATA TABLE 
{SAVE ACO RESIST 

{VERIFY STATUS 
{BRANCH IF GOOD 

;ALL ERRORS TO TRAP TO EMT VECTOR 
{UNIQUE ERROR NlHBER 
{ADDRESS OF ERROR MESSAGE 
{BAD FPS 

{GET ERROR PC 

{VERIFY ERROR ADDRESS ON STACK 
{BRANCH IF GOOO 

{ALL ERRORS TO TRAP TO EMT VECTOR 
{UNIQUE ERROR NUMBER 
{ADDRESS Of" ERROR MESSAGE 
{BAD ERROR RETURN ON STACK 
{RESTORE STACK 

{POINT TO EXPECTED DATA 

{VERIFY DATA 

{BRANCH IF GOOD 

{ALL ERRORS TO TRAP TO EMT VECTOR 

; UNIQUE ERROR NUMBER 

{ADDRESS OF ERROR MESSAGE 
{BAD ACO 
NONZERO RESULT 

{SETUP FLOATING POINT STATUS 

{LOAD FPS 

{RESTORE TRAP VECTOR 
{POINT TO FSRC DATA 
{POINT TO ACO DATA 



.6 



GLOBAL 


ARE-". AS 


MACU1 


30AC1052) 


15-MAR-84 


16:58 PACE 76 


KDJ11A. 


MAC 15-MAR-84 


15:51 


T56 


TEST ADDD WITH OVERFI 


385b 


016714 


172411 






LDD 


(Rl).ACO 


3856 


016716 


172014 






ADDD 


(R4)»AC0 


3857 


016720 


170203 






STFPS 


R3 


3858 


016722 


012701 


001126 




MOV 


ORECDST.Ri 


3859 


016726 


174011 






STD 


AC0,(R1) 


3860 


016730 


022703 


000204 




CMP 


0204 ,R3 


3861 


016734 


001403 






BEQ 


15$ 


3862 


016736 


104 OOO 






ERROR 




3863 


016740 


000321 






.WORD 


321 


3864 


016742 


002013 






.WORD 


FPPERR 


3865 














3866 


016744 


012704 


001256 


15$: 


MOV 


0TAB6,R4 


3867 


016750 


004767 


163172 




JSR 


R7.DATVPR 


3868 


016754 


005767 


162060 




TST 


COUNT 


3669 


016760 


001403 






BEQ 


16$ 


3870 


016762 


104000 






ERHOR 




3871 


016764 


000322 






.WORD 


322 


38 72 


016766 


002013 






.WORD 


FPPERR 


3873 














3874 








jUNERFLOW WITH 


TRAPS ENABLED 


3875 


016770 


012702 


102200 


16$; 


MOV 


$102200, R2 


3876 


016774 


170102 






LDFPS 


R2 


38 77 


016776 


012737 


017030 


000244 


MOV 


*18$,S*FPVEC 


3878 


017004 


012704 


001656 




MOV 


0TAB41.R4 


3879 


017010 


012701 


001666 




MOV 


0TAB42.R1 


3880 


017014 


172411 






LDD 


(Rl).ACO 


3881 


017016 


172014 






ADDD 


CR4),AC0 


3882 


017Q20 


17C000 




17$: 


CFCC 




3883 


017022 


104000 






ERROR 




31*84 


017024 


000323 






.WORD 


323 


3385 


017026 


002013 






.WORD 


FPPERR 


3886 














3887 


017030 


170203 




18$: 


STFPS 


R3 


3888 


017032 


012701 


001126 




MOV 


0RECDST.R1 


3889 


017036 


174011 






STD 


AC0.CR1) 


3890 


017040 


012600 






MOV 


CSP)»,RO 


3891 


017042 


005 726 






TST 


CSP)» 


3892 


017044 


022700 


017020 




CMP 


017$, RO 


3893 


017050 


001403 






BEQ 


19$ 


3894 


017052 


104000 






ERROR 




3895 


017054 


000324 






.WORD 


324 


3896 


017056 


002013 






.WORD 


FPPERR 


389 7 














3898 


01/060 


022703 


102204 


19$: 


CMP 


$102204 ,R3 


3899 


017064 


001403 






BEQ 


20$ 


3900 


017066 


104000 






ERROR 




3901 


017070 


000525 






.WORO 


325 


3902 


017072 


002013 






.WORD 


FPPERR 


3903 














3904 


017074 


012704 


001676 


20$: 


MOV 


0TAU43.R4 


3905 


017100 


004 76 7 


16304 2 




JSR 


R7.DATVER 


3906 


017104 


005 767 


161730 




TST 


COUNT 


3907 


01/110 


001403 






BEQ 


21$ 


3908 


017112 


104000 






ERROR 




3909 


017114 


000326 






.WORD 


326 


3910 


017116 


002013 






.WORD 


FPPERR 



SEQ 0076 



j BAD FPS 



{LOAD ACO WITH TEST DATA 
{♦TEST INSTRUCTION 
I SAVE FPS 

■POINT TO RECEIVED DATA TABLE 
j SAVE ACO RESULT 
, VERIFY STATUS 
l BRANCH IF GOOD 

{ALL ERRORS TO TRAP TO EMT VECTOR 
; UNIQUE ERROR NUMBER 
j ADDRESS OF ERROR MESSAGE 

{POINT TO EXPECTED DATA 
^VERIFY DATA 



{BRANCH IF GOOD 

j ALL ERRORS TO TRMP TO EMT VECTOR 

{UNIQUE ERROR NUMBER 

{ADDRESS OF ERROR MESSAGE 
j BAD ACO 
NON-ZERO RESULT 

{SETUP FLOATING POINT STATUS 

{LOAD FPS 

{RESTORE TRAP VECTOR 

{POINT TO FSRC DATA 
{POINT TO ACO DATA 
{LOAD ACO WITH TEST DATA 

{♦TEST INSTRUCTION 

{ALL ERRORS TO TRAP TO EMT VECTOR 

{UNIQUE ERROR NUMBER 

{ADDRESS OF ERROR MESSAGE 
{NO TRAP ON IMOERFLOW 

{SAVE FPS 

{POINT TO RECEIVED DATA TABLE 

{SAVE ACO RESULT 

{SAVE STACK CONTENTS 

{CLEAN UP STACK 

{VERIFY RETURN ADDRESS 

{BRANCH IF GOOD 

I ALL ERRORS TO TRAP TO EMT VECTOR 

{UNIQUE ERROR NUMBER 

; ADDRESS OF ERROR MESSAGE 
{BAD RETURN ADDRESS 

{VERIFY STATUS 

{BRANCH IF GOOD 

{ALL ERRORS TO TRAP TO KMT VECTOR 



{BAD FPS 



{UNIQUE ERROR NUMBER 
{ADDRESS OF ERROR MESSAGE 

{POINT TO EXPECTED DATA 
{VERIFY DATA 

{BRANCH IF GOOD 

l Hi I. ERRORS TO TRAP TO EMT VECTOR 

{UNIQUE ERROR NUMBER 

{ADDRESS OF ERROR MESSAGE 



M6 



GLOBAL. ARrAS 
KDJU A.MAC 



MACY11 30AC1052) 
15-MAR-64 15:51 



3911 
391? 
3915 
3914 
3915 
3916 
3917 
3918 
3919 
3920 
3921 
3922 
3923 
3924 
3925 
3926 
3927 
3928 
3929 
3930 
3931 
3932 
3933 
3934 
3935 
3936 
3937 
3938 
3939 
3940 
3941 
3942 

394 3 
3944 
3945 
3946 
3947 
3948 
3949 
3950 
3951 
3952 
395? 
3954 
3955 
3956 

395 I 
3958 
3959 
3960 
3961 
3962 
3963 
3964 

;vk.5 

3966 



017120 



017120 



017120 
017120 

017124 

017130 
017132 
017136 
017142 
017144 
017146 
017152 
017154 
017160 
017162 
017164 
017166 

017170 

017174 
017200 
017204 
017206 
017210 
017212 



017214 

017216 
017220 
017221 
017230 
017232 
01/234 
017240 
C17242 
01/244 
017246 

017250 
017252 
017256 
017260 
017264 
017266 
017270 
01/2/2 



005267 

012702 

170102 
012704 
012701 
172411 
177424 
012701 
174011 
022704 
001403 
104000 
000327 
002013 

012704 
004 767 

00576/ 
001403 
104000 
000330 



005002 
170102 
012704 
012701 
172411 
177424 
020427 
001403 
104000 
000331 
002013 

170203 
012701 
174011 

022703 
001403 
104000 
00.) ,42 
002013 



15-MAR 84 
T56 



'lit 



161660 

000300 

001706 
001256 

001126 
001712 



001716 
162746 
161634 



001706 
001426 



001716 



001126 
000000 



16:58 PAGE 77 

TEST ADDD WITH OVERFLOW AND UNDERFLOW 

j BAD AGO 



SEQ 0077 



ML DC: 

}}***+**+*****++**♦*+**+**+**+****++* 
j*TEST 57 TEST LDCFD, LDCDF 

TST57: 

INC $TESTN 
{TRUNCATE 

MOV 



1$ 



LDFPS 

MOV 

MOV 

LDD 

LDCFD 

MOV 

STD 

CMP 

BEQ 

ERROR 

.WORD 

.WORD 

MOV 

JSR 

T5T 

BEQ 

ERROR 

. WORD 

.WORD 



0300, R2 

R2 

*TAB45,R4 

0TAB6.R1 

CRD, ACQ 

CR4)*,AC0 

OPECDST.Rl 

ACO, CRD 

*TAB45*4,R4 

1$ 

327 
FPPERR 

0TAB46.R4 
R7.DATVER 
COUNT 
2$ 

330 
FPPERR 



j BAD 



; AUTO-INC DOUBLE MODE 



2* 



3* 



017274 012 704 001736 



4* 



CL R R2 

LDFPS R2 

MOV 4TAB45.R4 

MOV T AB16,R1 

LDD (Rl).ACO 

LDCDF (R4)-,AC0 

CMP R4.4TAB45+10 

BEQ 3* 

ERROR 

.WORD 331 

.WORD FPPERR 

STEPS R3 

MOV $RECD5T,R1 

STD ACO.CRD 

CMP >0.R3 

BEQ 4$ 

ERROR 

.WORD 332 

.WORD FPPERR 

MOV #TAB49,R4 



I INCREMENT TEST NUMBER 

jSETUP FLOATING POINT STATUS 

{LOAD FPS 

{POINT TO FSRC DATA 
{POINT TO AGO DATA 
{LOAD ACO WITH TEST DATA 

i*TEST INSTRUCTION 

{POINT TO RECEIVED DATA TABLE 

{SAVE ACO RESULT 

{VERIFY AUTO-INC 

{BRANCH IF GOOD AUTO-INC 

I ALL ERRORS TO TRAP TO CMT VECTOR 

;UNIQUe ERROR NUMBER 

{ADDRESS OF ERROR MESSAGE 
AUTO-INC 

;POINT TO EXPECTED DATA 
{VERIFY DATA 

{BRANCH IF GOOD 

j ALL EKRDR3 TO TRAP TO EMT VECTOR 
sUNIQUC ERROR NUMBER 
{ADDRESS OF ERROR MESSAGE 
{BAD ACO 

jSETUP FLOATING POINT STATUS 

{LOAD FPS 

{POINT TO FSRC DATA 

{POINT TO ACO DATA 

j LOAD ACO WITH TEST DATA 

{♦TEST INSTRUCTION 

{VERIFY AUTO-INC 

{BRANCH IF GOOD 

;AL.L ERRORS TO TRAP TO EMT VECTOR 

{UNIQUE ERROR NUMBER 

{ADDRESS OF ERROR MESSAGE 
{BAD AUTO-INC ON DOUBLE 

{SAVE FPS 

{POINT TO RECEIVED DATA TABLE 

{SAVE ACO RESULT 

{VERIFY STATUS 

{BRANCH IF GOOD 

jALL ERRORS TO TRAP TO EMT VECTOR 

{UNIQUE ERROR NUMBER 

{ADDRESS OF ERROR MESSAGE 
{BAD FP5 

{POINT TO EXPECTED DATA 



N6 



GLOBAL 


AREAS 


MACY11 


30AU052) 


15 -MAR -84 16 


;58 PAG 
TEST 1.0 


E 78 


KDJ11A. 


MAC 15 -MAR -84 


15:51 


T57 


CFD, LDCDF 


3967 


017300 


004 767 


162642 




JSR 


R7.DATVER 


3968 


01"? 304 


005767 


161530 




1ST 


COUNT 


3969 


017310 


001403 






BEQ 


5$ 


3970 


017312 


104000 






ERROR 




3971 


017314 


000333 






.WORD 


333 


3972 
3973 
3974 


017316 


002013 






.WORD 


FPPERR 








{LDCFD 


GR7 




3975 


017320 


012702 


000200 


5*: 


MOV 


0200, R2 


39 76 


01/324 


170102 






LDFPS 


R2 


397 7 


017326 


005003 






CLR 


R3 


3978 


017330 


177427 


043243 




LDCFD 


05203, ACO 


3979 


017334 


005203 






INC 


R3 


3980 


017336 


005203 






INC 


R3 


3981 


017340 


005203 






INC 


R3 


3982 


017342 


022703 


000003 




CMP 


03, R3 


3983 


017346 


001403 






DEQ 


6* 


3984 


017350 


104000 






ERROR 




3985 


017352 


000334 






.UORD 


334 


3986 


017354 


00203 3 






.WORD 


FPPERR 


3987 














3988 








{NEGATIVE OPERANDS 


3989 


017356 


012702 


000200 


6$: 


MOV 


0200, R2 


3990 


017362 


170102 






LDFPS 


R2 


3991 


017364 


012704 


001726 




MOV 


OTAB47.R4 


3992 


0173"'0 


012701 


001706 




MOV 


0TAB45.R1 


3993 


017374 


172411 






LOD 


(Ml).ACO 


3994 


017376 


177414 






LDCFD 


(R4),AC0 


3995 


017400 


170203 






STFPS 


R3 


3996 


017402 


012701 


001126 




MOV 


0RECDST.R1 


3997 


01740o 


174011 






STD 


AC0.CR1) 


3998 


017410 


022703 


000210 




CMP 


0210, R3 


3999 


017414 


001403 






BEQ 


7$ 


4000 


017416 


104000 






ERROR 




4001 


017420 


000335 






.WORD 


335 


400? 


017422 


002013 






.WORD 


FPPERR 


4003 














4004 


017424 


012704 


001746 


7$: 


MOV 


0TAB48.R4 


4005 


017430 


004767 


162512 




JSR 


R7.DATVER 


4006 


017434 


00576 7 


161400 




TST 


COUNT 


400/ 


017440 


001403 






BEQ 


6* 


4008 


017442 


104000 






1RR0R 




4009 


017444 


000336 






.WORD 


336 


4010 


017446 


002013 






.WORD 


FPPERR 


4oi: 














4012 








jLOAD A 


ZERO 




4013 


017450 


012702 


000200 


8<; 


MOV 


0200, H2 


4014 


017454 


170102 






LDFPS 


R2 


4015 


017456 


012704 


001256 




MOV 


OTAU6.R4 


4016 


017462 


0)2701 


001746 




MOV 


0TAB48.R1 


4017 


017466 


172411 






LDD 


CRD, AGO 


4018 


017470 


177414 






L'CFD 


CT!4),AC0 


4019 


0174/2 


170203 






STFPS 


R3 


40,>0 


0174 74 


012701 


001126 




MOV 


0RECD5T.R1 


4021 


017500 


174011 






STD 


ACO, (HI) 


4022 


017502 


022703 


000204 




CMP 


0204, R3 



SEQ 0078 



{BAD ACO 



I VERIFY DATA 

j BRANCH IF GOOD 

jALL ERRORS TO TRAP TO EMT VECiQR 

j UNIQUE ERROR NUMBER 

{ADDRESS OF ERROR MESSAGE 



> SETUP FLOATING POINT STATUS 
,LOAD FPS 

{♦TEST INSTRUCTION 



{IF LDCFD WORKED, R3 SHOULD-3 
{VERIFY CORRECT PROGRAM FLOW 
{BRANCH IF GOOD 

{ALL ERRORS TO TRAP TO EMT VECTOR 
{UNIQUE ERROR NUMBER 
{ADDRESS OF ERROR MESSAGE 
;BAD PROGRAM FLOW 

{SETUP FLOATING POINT STATUS 

{LOAD FPS 

{POINT TO FSRC DATA 
{POINT TO ACO DATA 
{LOAD ACO WITH TEST DATA 

{♦TEST INSTRUCTION 

, SftVE FPS 

JPOINT TO RECEIVED DATA TABLE 

{SAVE ACO RESULT 

{VERIFY STATUS 

{BRANCH IF GOOD 

{ALL ERRORS TO TRAP TO EMT VECTOR 

{UNIQUE ERROR NUMBER 

{ADDRESS OF ERROR MESSAGE 



{BAD FPS 



{BAD ACO 



{POINT TO EXPECTED DATA 
{VERIFY DATA 

BRANCH IF GOOD 

ALL ERRORS TO TRAP TO EMT VECTOR 

UNIQUE ERROR NUMBER 

ADDRESS OF ERROR MESSAGE 



{SETUP FLOATING POINT STATUS 
{LOAD FPS 

{P0IN1 TO 

{POINT TO 

jLOAD ACO 



FSRC DATA 

ACO DATA 

WITH TEST DATA 



{♦TEST INSTRUCTION 



l SAVE FPS 

{POINT TO RCCFIVED 
{ SAVE ACO RESULT 
iVEHIFt STATUS 



DATA TABLE 



B7 



GLOBAL 


AFU AS 


MACU1 


30AC1052) 15-MJ 


KDJUA, 


MAC 15-MAR-64 


15j51 




40*?$ 


017506 


001403 






4024 


017510 


104000 






4025 


017512 


000337 






4026 


017514 


002013 






40..' 7 










4028 


017516 


012704 


001256 




4029 


017522 


004767 


162420 




4030 


017526 


005767 


16130b 




4031 


017532 


001403 






403? 


017534 


104000 






4033 


017536 


000340 






4034 


017540 


002013 






4035 










4036 


017542 








4037 










4038 










403<* 


017542 








4040 










4041 










404,? 










4043 


017542 








4044 


01754? 


C0526 7 


161236 




4045 










4046 


017546 


005037 


001042 




404 7 


017552 


004 76 7 


000152 




048 


017556 


000000 


000000 


oooooo 


v049 


017564 


000000 






4050 


017566 


000000 


000000 


000000 


405] 


017574 


000000 






4052 


017576 


0O0200 






4053 


017600 


000204 






4054 










4055 


017602 


012737 


000001 


001042 


4056 


017610 


004767 


000114 




4057 


017614 


OCOOOO 


000000 


OOOOOO 


4056 


017622 


125252 






4059 


01 '624 


000100 


000022 


000123 


4060 


017632 


0OO123 






4061 


017634 


000200 






4062 


017636 


000204 






4063 










4064 


017640 


005037 


00104 e 




4065 


017644 


004 76 7 


000060 




4066 


017650 


000400 


012346 


012346 


4067 


017656 


0OO023 






4068 


017660 


000200 


000000 


oooooo 


4069 


017666 


000000 






4070 


017670 


000200 






4071 


017672 


000210 






4072 










4073 


0176 74 


004 7i> 7 


000030 




4074 


017700 


0777/7 


177 777 


1777/7 


40 75 


017706 


177777 






40/6 


Oi7710 


077777 


177777 


1/7777 


40 7 7 


017716 


17 7 7 7" 






4078 


CI 7720 


000200 







16j58 PAGE 79 

TEST l.DCFD, LDCDF 



SEQ 0079 



r M: 



BEQ 


9$ 


ERROR 




.WORD 


337 


.WORD 


FPPERR 


MOV 


•TABf,R4 


JSR 


R7.LmVER 


T5T 


COUNT 


BEQ 


10$ 


ERROR 




.WORD 


340 


.WORD 


FPPERR 



I BAD FPS 



10$; 



MCMPD 



l BAD ACO 



I BRANCH IF GOOD 

I ALL ERRORS TO TRAP TO KMT VECTOR 

(UNIQUE ERROR NUMBER 

I ADDRESS OF ERROR MESSAGE 

jPOINT TO EXPECTED DATA 
jVERIFY DATA 

I BRANCH IF GOOD 

lALL ERRORS TO TRAP TO EMT VECTOR 

jLNICX* ERROR N**16ER 

j ADDRESS OF ERROR MESSAGE 



i I 



»*TEST 60 TEST CMPD 

,)**♦♦*****•♦**♦♦♦*♦♦♦*♦♦**+♦♦♦«**♦♦. 

TST60: 

INC ITESTN 

j CMPD WITH FRSC-ACO-0 

CLR 8*FIAG 

JSR R7.CMPRTN 

.WORD 0,0.0,0 

.WORD 0,0,0,0 

.WORD 200 
. WORD 204 
I CMPD WITH EXP(FSRC]-0. EXP[ACO)-0 
MOV #1,WFLAC 

JSR R7.CMPRTN 

.WORD 0,0,0,125252 

.WORD 100.22, 123, 123 

, WCRD 200 
.WORD 204 
I Cr^D FSRC>EXP[ACO]-0 
CLR ©♦FLAG 

JSR R7.CMPRTN 

.WORD 400.12346,12346,23 



.WORD 200,0,0,0 

, WORD 200 
.WORD 210 
I CMPD FSRC-ACO>0 

JSR R7.CMPHTN 

.WORD 77777, I, 1 



.WORD 7/7/7, -1,-1, 

.WORD 200 



I INCREMENT TEST NUMBER 

SIGNAL THAT ACO REMAINS CONSTANT 
ROUTINE TO TEST DATA 
ACO AT START 

FSRC AT START 

FPS AT START (D) 
FPS AT END 

SIGNAL THAT ACO UIl L « 
ROUTINE TO TEST DATA 
ACO AT START 

FSRC AT START 

FPS AT START (D) 
FPS AT END 

ACO REMAINS UNCHANGED 
ROUTINE TO TEST DATA 
ACO AT START 

FSRC AT START 

FPS AI START (D) 
FPS AT END 

ROUTINE TO TEST DATA 
ACO AT START 

FSRC AT r'TART 

FPS AT START ID) 



cv 



GLOBAt 
KDJUA, 


ARIAS MACU1 
MAC 15 -MAR -64 


Wj pn 


40 79 


017 72? 


000204 




4080 


017724 


000167 


000126 


408 \ 








4082 








4083 








4084 








4085 








4086 








408? 








4088 








4089 








4090 








4091 








4092 








409* 








4094 








4095 


017730 


012605 




4096 


017732 


012702 


000200 


4097 


017736 


170102 




4098 


017740 


010504 




4099 


017742 


062704 


000010 


4100 


017746 


010501 




4101 


017750 


172411 




4102 


017752 


016502 


0C0020 


4103 


017756 


170102 




4104 


017760 


173414 




4105 


05 7762 


170203 




4106 


017 764 


012702 


000200 


4107 


017770 


170102 




4108 


017772 


012701 


001126 


4109 


017776 


174011 




4110 


020000 


026503 


000022 


4111 


020004 


OOJ403 




4112 


020OO6 


104000 




4113 


020010 


000341 




4114 


020012 


002013 




4U5 








4116 


020014 


005 7 37 


001042 


4117 


020020 


001403 




4118 


020C22 


012704 


001256 


4119 


020026 


C0O401 




4120 


020030 


010504 




4121 


020032 


004 767 


162110 


4122 


020036 


00576 7 


X60776 


4123 


020042 


001403 




4124 


020044 


104000 




4125 


020O46 


000342 




4126 


020050 


002013 




4127 








4128 


020052 


00016b 


000024 


4129 


020056 






4130 








4131 








4132 








413'. 


020056 







15 MAR. 



it 16! ^ST P ^D 8 ° 



SLQ 0080 



.WORD 

JMP 



204 
H0P44 



|FPS AT END 

I HOP OVER SUBROUTINE 



♦x*x»x*x*x*x*x*x*x«x»x*x*x*x*x»x»x*x*x*x»x*x>x*x«x*x«x*x*x 
*x*x*x*x*x«x*x*x*x*x*x*x*x*x*x*x*x*x*x*x*x*x*x*x*x*x*x*x*x 

COMPARE ROUTINE DATA TABLES 

ACO 

F^RC 

FPS BEFORE EXECUTION 

FPS AFTER EXECUTION 

(FEC) 
♦ X*X*X*X*X*X»X*X*X*X*X*X»X*X*X*X*X*X*X*X*X*X*X*X*X<*X*X*X*X 
♦X*X*X*X*X*X*X*X*X*X*X*X*X*X*X*X*X*X*X*X+X*X*X*X*X*X*X*X*X 



CMPRTN: 


MOV 


CSP)*,R5 




MOV 


♦200, R2 




LDFPS 


R2 




MOV 


R5,R4 




ADD 


♦10, R4 




MOV 


R5.R1 




LOD 


(Rl).ACO 




MOV 


20CR5),R2 




LDFPS 


R2 


1$: 


^tVD 


(R4),AC0 




SUPS 


R3 




MOV 


♦200, R2 




LDf^S 


R2 




MOV 


♦RECOST.Rl 




STO 


ACO.CRJ ) 




CMP 


22(R5),R3 




BEQ 


21 




ERROR 






.UOPO 


341 




.WORD 


FPPERR 


2$: 


TST 


n*fi AG 




BEO 


3$ 




MOV 


♦TA86.R4 




BR 


At 


3$: 


MOV 


R5.R4 


4t; 


JSR 


M7,DATVER 




TST 


COUNT 




BEO 


5$ 




ERROR 






.WORD 


342 




.WORD 


FPPFRR 


5i: 


JMP 


24CR5) 


H0P44} 







RETURN AOORESS TO USE AS POINTER 
SET TO DOUBLE MODE FOR LOAD 
LOAD FPS 
POINT TO F3RC DATA 

tPOINT TO ACO DATA 

LOAD ACO WITH TEST DATA 
GET TEST FPS 
LOAD TEST FPS 
•TEST INSTRUCTION 
SAVE FPS 
TO DOUBLE 



I SET FPP 



jBAD FPS 



I BAD ACO 



POINT TO RECEIVED DATA TABLE 

SAVE ACO RESULT 

VERIFY STATUS 

BRANCH IF GOOO 

ALL ERRORS TO TRAP TO EMT VECTOR 

L^IQUE ERROR NUMBER 

ADDRESS OF ERROR MESSAGE 



CHANGED 
STAYS THE SAME 



SEE IF ACO 
BRANCH IF ACO 
ACO-0 

GO VERIFY DATA 
POINT TO EXPECTED DATA 
tVERIFY DATA 

BRANCH IF GOOO 

ALL ERRORS TO TRAP TO EMT VECTOR 

U<IOUfc ERROR NUMBER 

ADDRESS OF ERROR MESSAGE 



4134 



I RE TURN 



MOIVF; 



D7 



GLOBAi. 


AREAS 


MACU1 


30AU052) 15-MAR-84 16*58 PAGI 


F. ftt 




KDJUA. 


MAC 15-MAR-84 


15:51 


T61 


TF.ST OIVF 




4135 








{♦TEST 


61 


TEST DIVF 




4156 








(;*+*******♦**♦♦+♦*+**+******+***+**♦++♦***♦*♦♦♦+«*++**+***+♦♦ 


4137 


020056 






TST61: 








4138 


020056 


005267 


160 722 




INC 


ITESTN 


1 INCREMENT TEST NUMBER 


4139 








ll/EXP[AC]-FSRC 


•0 




4140 


0200v>2 


012737 


00C002 001042 




MOV 


02,8#FLAG 


iNO INTERRUPT, BUT FEC 


4141 


020070 


004767 


000706 




JSR 


R7.DVFSU6 


I DO TEST 


4142 


020074 


000100 


000027 




.WORD 


100,27 


jACO 


4143 


020100 


000000 


000000 




.WORD 


0,0 


jFSRC 


4144 


020104 


000100 


000027 




.WORD 


100,27 


iRESULT 


4145 


020110 


040000 






.WORD 


40000 


j TEST FPS 


4146 


020112 


140000 






.WORD 


140000 


, RESULT FPS 


4147 


020114 


000004 






.WORD 


4 


iFEC 


4148 








{2/AC-i 


EXP(FSRC] 


-0 




4149 








l TRAPS 


ENABLED 






4150 


020116 


012737 


000001 001042 




MOV 


• l.MFLAG 


j INTERRUPT 


4151 


020124 


004767 


000452 




JSR 


R7.DVFSU6 


iDO TEST 


4152 


020130 


000000 


000000 




.WORD 


0,0 


jACO 


4153 


020134 


0O010C 


000000 




.WORD 


100,0 


jFSRC 


4154 


020140 


000000 


000000 




.WORD 


0,0 


jRESULT 


4155 


020144 


000000 






.WORD 





» TEST FPS 


4156 


020146 


1OOOO0 






.WORD 


100000 


jRESULT FPS 


4157 


020150 


000004 






.WORD 


4 


|FEC 


4158 








l3/rSRC>AC0-0 






4159 


020152 


005037 


001042 




CLR 


S*FLAG 


iNO INTERRUPT 


4160 


020156 


00476/ 


000620 




JSR 


R7.DVFSUB 


{DO TEST 


4161 


020162 


OOCI77 


000234 




.WORD 


177,234 


jACO 


4162 


020166 


004100 


000000 




.WORD 


4100,0 


iFSRC 


4163 


020172 


000000 


000000 




.WORD 


0,0 


jRESULT 


4164 


0201/6 


007400 






.WORD 


7400 


, TFST FPS 


4165 


020200 


007404 






.WORD 


7404 


jRESULT FPS 


4166 








j4/AC0 


>EXP[FSRC]»0 




4167 


020202 


012737 


000001 001042 




MOV 


n.&^FLAG 


I INTERRUPT 


4168 


020L-10 


004767 


OC0566 




JSR 


R7.DVFSU6 


{DO TEST 


4169 


020214 


040200 


104210 




.WORD 


40200,104210 


lACO 


4170 


020220 


000125 


025252 




.WORD 


125,25252 


jFSRC 


4171 


020224 


040200 


104210 




.WORD 


40200,104210 


jRFSULT 


4172 


020230 


007557 






.WORD 


7557 


! TEST FPS 


4173 


020232 


10755 7 






.WORD 


107557 


jRESULT FPS 


4174 


020234 


000004 






.WORD 


4 


jFEC 


4175 








j 5 /EXP 


[AC]-EXP[FSRC1 




4176 


020236 


00503 7 


001042 




CLR 


fcfrfLAG 


jNO INTERRUPT 


4177 


020242 


C04 767 


000534 




JSR 


R7.DVFSUB 


{DO TEST 


4176 


020246 


077760 


177777 




.WORD 


77760, -1 


lACO 


4179 


020252 


077760 


000000 




.WORD 


77760,0 


jFSRC 


4180 


020256 


040200 


104210 




.WORD 


40200,104210 


jRESULT 


4181 


020262 


007414 






.WORD 


7414 


j TEST FPS 


4182 


020264 


007400 






.WORD 


7400 


jRESULT FPS 


4183 








(6/AC- 


FSRC 






4184 


020266 


005037 


001042 




CLR 


SfrFLAG 


j NO INTERRUPT 


4185 


020272 


004^67 


000504 




JSR 


R7,DVF5UU 


jDO TEST 


4186 


0202 76 


052525 


052525 




.WORD 


52525,52525 


jACO 


4187 


020302 


052525 


052525 




.WORD 


52525,52525 


jFSRC 


4188 


020306 


040200 


000000 




.WORD 


40200,0 


iRFSUt T 


4189 


020312 


007400 






.WORD 


7400 


{ TFST FPS 


4190 


020314 


007400 






.WORD 


7400 


1 RESULT FPS 



SEQ 0081 



E7 



OBAl 


AREAS 


MACU1 


30ACi032) 


15-MAR-84 16 


:58 PAI 


JE 82 
EVF 




J11A. 


MAC 15-MAR-84 


15:51 


T61 


TEST 




4191 








J7/FSRC 


>0<ACO, 


ROUND 




4192 


020316 


005037 


001042 




CLR 


8*FLAG | 


NO INTERRUPT 


4193 


020322 


004767 


000454 




JSR 


R7.DVFSUG 


iDO TEST 


4194 


020326 


077777 


125252 




.WORD 


77777,125252 j 


ACO 


4195 


020332 


040300 


OOOOOO 




.WORD 


40300,0 


FSRC 


4196 


020336 


077652 


070707 




.WORD 


77652,070707 


j RESULT 


419? 


020342 


007400 






.WORD 


7400 i 


TEST FPS 


4198 


020344 


007400 






,WORO 


7400 i 


RESULT FPS 


4199 








}8/AO0<FSRC 






4200 


020346 


005037 


001042 




CLR 


QOFLAG 


NO INTERRUPT 


4201 


020352 


004767 


000424 




JSR 


R7.DVFSUB 


j DO TEST 


4202 


020356 


055377 


177777 




.WORD 


55377,-1 | 


ACO 


4203 


020362 


055300 


OOOOOO 




.WORD 


55300,0 


FSRC 


4204 


020366 


040252 


125252 




.WORD 


40252,125252 


RESULT 


4205 


020372 


000000 






.WORD 


i 


TEST FPS 


4206 


020374 


000000 






.WORD 


i 


RESULT FPS 


4207 








19/FSROAOO 






4208 


020376 


005037 


001042 




CLR 


80FLAG | 


NO INTERRUPT 


4209 


020402 


004767 


000374 




JSR 


R7,DVFSU6 


jDO TEST 


4210 


020406 


064600 


000001 




.WORD 


64600,1 


ACO 


4211 


020412 


066600 


OOOOOO 




.WORD 


66600,0 


FSRC 


4212 


020416 


036200 


000001 




.WORD 


36200,1 | 


RESULT 


4213 


020422 


OOOOOO 






.WORD 





TEST FPS 


4214 


020424 


000000 






.WORD 





RESULT FPS 


4215 








jlO/AC> 


FSRC>0 






4216 


020426 


005037 


001042 




CLR 


SOfLAG 


NO INTERRUPT 


4217 


020432 


004767 


000344 




JSR 


R7,DVFSU6 


jDO TEST 


4218 


020436 


012345 


156024 




.WORD 


12345,156024 


ACO 


4219 


020442 


005600 


OOOOOO 




.WORO 


05600,0 


FSRC 


4220 


020446 


044 745 


156024 




.WORD 


44745,156024 


jRESULT 


4221 


020452 


0OO017 






.WORD 


17 


TEST FPS 


4222 


C20454 


OOOOOO 






.WORD 





RESULT FPS 


4223 








lll/FSRC<0 






4224 


020456 


005037 


001042 




CLR 


S*fLAG 


NO INTERRUPT 


4225 


020462 


0O4767 


OO0314 




JSR 


R7,DVFSU6 


iDO TEST 


4226 


020466 


040422 


101010 




.WORD 


40422,101010 


ACO 


4227 


020472 


140511 


101010 




.WORD 


140511,101010 


FSRC 


4228 


0204 76 


140072 


020167 




.WORD 


140072,20167 


I RESULT 


4229 


020502 


000057 






.WORD 


57 


TEST FPS 


4230 


020504 


000050 






.WORD 


50 


RESULT FPS 


4231 








;12/AC< 









4232 


020506 


005037 


001042 




CLR 


&4FLAG 


NO INTERRUPT 


4233 


020512 


004767 


000264 




JSR 


R7,DVFSUB 


jDO TEST 


4234 


020516 


160077 


000101 




.WORD 


160077,101 


ACO 


4235 


020522 


040417 


177777 




.WORD 


40417,-1 


FSRC 


4236 


020526 


157651 


143527 




.WORD 


157651,143527 


jRESULT 


4237 


020532 


0O0007 






.WORD 


/ 


I TEST FPS 


4238 


020534 


000010 






.WORD 


10 


RESULT FPS 


4239 








{13/TRUNCATE TEST 




4240 


020536 


005037 


001042 




CLR 


a*FLAG 


NO INTERRUPT 


4241 


020542 


004 767 


000234 




JSR 


R7,DVFSUB 


iDO TEST 


4242 


020546 


060100 


000177 




.WORD 


60100,17? 


j ACO 


4243 


020552 


040300 


OOOOOO 




.WORD 


40300,0 


jFSRC 


4244 


020556 


060000 


000124 




.WORD 


60000,124 


i RESULT 


4245 


020562 


000040 






.WORD 


40 


{ TEST FPS 


4246 


020564 


000040 






.WORD 


40 


{RESULT FPS 



SEQ 0082 



F7 



GLOBAl ARFAS 
KOJ11A.MAC 



MACY11 30AU052) 
15 -MAR -84 15:51 



15-MAR-84 

T61 



16 j 58 PAGE 83 

TEST DIVF 



SEQ 0083 



424? 
4248 
4249 
4250 
4251 
4252 
4253 
4254 
4255 
4256 
4257 
4258 
4259 
4260 
4261 
4262 
4263 
4264 
4265 
4266 
4267 
4268 
4269 
4270 
4271 
4272 
4273 
4274 
4275 
4276 
4277 
4278 
4279 
4280 
4281 
4282 
4283 
4284 
4205 
4286 
4287 
4288 
4289 
4290 
4291 
4292 
4293 
4294 
1295 
4296 
4297 
4298 
4299 
4300 
4301 
4302 



020566 
020572 
0205 76 
020602 
020606 
020612 
020614 

020616 
020624 
02063C 
020634 
020640 
020644 
020646 
020650 

020652 
020660 
020664 
020670 
020674 
020700 
020702 
020704 

020706 
020714 
020720 
020724 
020730 
020734 
020736 
020740 

020742 
020750 
020754 
020760 
020764 
020770 
020772 
020774 



005037 
004767 
060100 
040300 
060000 
000000 
000000 

012737 
004767 
177700 
000200 
137700 
001100 
101112 
000010 

012737 
004767 
000200 
177700 
000000 
041100 
041104 
000010 

012737 
004767 
100200 
040377 
100000 
002000 
102014 
000012 

012737 
004767 
030325 
0767 7 7 
071525 
002537 
102500 
000012 



020776 000167 000242 



U4/R0UND TEST 



001042 
000204 
000177 
000000 
000125 



000001 001042 
000152 



000000 
000000 
000000 



000002 001042 
000116 



000000 
000000 
000000 



000001 001042 

t ; 
1 
OOOv. 



000001 001042 

000026 

025252 

023456 

157716 



CLR 
JSR 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
{15/0VERFL0W, 

MOV 

JSR 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

{16/0VERFL0W, 
MOV 
JSR 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
WORD 

i 17/UNDERFL0W 
MOV 
JSR 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 

j 18/UNDERFLOW 
MOV 
JSR 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 



QOFLAG 

R7.DVFSUB 

60100,177 

40300,0 jFSRC 

60000,125 




INTERRUPTS ENABLED 

#l,S*fLAG 

R7.DVFSL6 

177700,0 

200,0 

137700,0 

1100 

101112 

10 
TRAPS DISABLED 

^P.R^FLAG 

R7.DVFSU8 

200,0 

177700,0 

0,0 

41100 

41104 

10 
, TRAPS ENABLED, 

♦1,B*FLAG 

R7.DVFSU6 

100200,0 

40377, -1 

100000,1 

2000 

102014 

12 
, TRAPS ENABLED, 

•1.B4FLAG 

R7.DVFSL8 

30325,25252 

76777,23456 

71525,157716 

2537 

102500 

12 



{NO 
{ACO 



INTERRUPT 

jDO TEST 



{RESULT 
j TEST FPS 
j RESULT FPS 

i INTERRUPT 

{DO TEST 

jACO 
jFSRC 

{RESULT 
j TEST FPS 
»RESULT FPS 
;FEC 



{NO 
{DO 



INTERRUPT 
TEST 



UV 



{ACO 

tFSRC 

{RESULT 

l TEST FPS 

{RESULT FPS 

jFEC OVERFLOW 
RESULT 

{INTERRUPT 
jDO TEST 
{ACO 
jFSRC 
{RESULT 

» TEST FPS 

{RESULT FPS 

}FEC 



ROUND 



{INTERRUPT 
{DO TEST 
{ACO 
;FSRC 
{RESULT 

} TEST FPS 

{RESULT FPS 

jFEC 



JMP HOPIO | GO TO NEXT TEST 

i*X*X*X*X->X*X*X*X*X*X*X + X*X*X*X*X#X*X*X*X*X*X*X*X*X*X*X»X*X 

5 *x*x*x*x*x*x*x*x*x*x*x*x*x*x*x*x*x*x*x*x*x*x*x*x*x*x*x*x*x 

{DIVF SUBROUTINE: 

{ ACO 

; FSRC 

{ FPS BEFORE EXECUTION 

{ FPS AFTER EXECUTION 

i (FEC) 



G7 



GLOBAL 


AREAS 


MACY11 


30AC1052) 15-M 


KOJ11A. 


MAC 15-MAR-84 


15 ? 51 


4303 








4304 








4305 








4306 








4307 


021002 


012605 




4308 


021004 


012737 


021064 000244 


4309 


021012 


012702 


000200 


4310 


021016 


170102 




4311 


021020 


010504 




4312 


021022 


062704 


000004 


4313 


021026 


172415 




4314 


021030 


016502 


000014 


4315 


021034 


170102 




4316 








4317 


021036 


174414 




4318 


021040 


170001 




4319 








4320 








4321 


021042 


032737 


000001 001042 


4322 


021050 


001426 




4323 


021052 


104000 




4324 


021054 


000343 




4325 


021056 


002013 




4326 








4327 


021060 


000167 


000042 


4328 








4 329 








4330 


021064 


032737 


000001 001042 


4331 


021072 


001005 




4332 


021074 


104000 




4333 


021076 


000344 




4334 


021100 


002013 




4335 








4336 


021102 


000167 


000020 


4337 


021106 


012604 




4338 


021110 


005726 




4339 


021112 


022704 


021040 


4340 


021116 


001405 




4341 


02112C 


104000 




4342 


021122 


000345 




4343 


021124 


002013 




4344 








4345 








4346 








4347 


021126 


170203 




4348 


021130 


012702 


000200 


4349 


021134 


170102 




4350 


021136 


012701 


001126 


4351 


021142 


174011 




4352 


021144 


026503 


000016 


4353 


021150 


001403 




4 354 


021152 


104000 




4355 


021154 


000346 




4 356 


021156 


002013 




4 35 7 








4358 


021160 


010504 





1-84 16:58 PAQE 84 
T61 TEST DIVF 



SEQ 0084 



j *x*x*x*x+x*x*x+x*x*x*x*x*x* 


OVFSUBt 


MOV 


(SP)-.RS 




MOV 


*50*,S*FPVEC 




MOV 


O200.R2 




LDFPS 


R2 




MOV 


R5.R4 




ADD 


44.R4 




LDD 


(R5),AC0 




MOV 


14(R5),R2 




LDFPS 


R2 


► 


DIVF 


CR4),AC0 


1$: 


SETF 




? INSTRUCTION DIDNT TRAP 




BIT 


*l,a*FLAG 




BEQ 


2* 




ERROR 






.WORD 


343 




.WORD 


FPPERR 



JMP 



2$ 



INSTRUCTION TRAPPED 
50$: BIT Gl.QOFLAG 

BNE 51$ 

ERROR 

. WORD 344 
.WORD FPPERR 





JMP 


2$ 


51$: 


MOV 


CSP)» ,R4 




TST 


CSP)» 




CMP 


*1$,R4 




BEQ 


2$ 




ERROR 






.WORD 


345 




.WORD 


FPPERR 


s COMMON 


CODE FOR TRAP AND 


2*: 


STFPS 


R3 




MOV 


4200, R2 




LDFPS 


R2 




MOV 


ORECDST.Rl 




STD 


ACO.(Rl) 




CMP 


16(R5),R3 




BEQ 


St 




ERROR 






.UORD 


346 




. WORD 


FPPERR 



l RETURN ADDRESS TO USE AS POINTER 

jREDIRECT TRAP VECTOR 

{SET TO DOUBLE MODE FOR LOAD 

j LOAD FPS 

{POINT TO FSRC DATA 

{LOAD ACO WITH TEST DATA 
j GET TEST FPS 
{LOAD TEST FPS 

;*TEST INSTRUCTION 

jWAIT FOR POSSIBLE FPA TRAP. 



s VERIFY A NO TRAP CONDITION 
j BRANCH IF GOOD 

j ALL ERRORS TO TRAP TO EMT VECTOR 
{ UNIQUE ERROR NUMBER 
j ADDRESS OF ERROR MESSAGE 
; INSTRUCTION SHOULD HAVE TRAPPED 
jREJOIN CODE 



j SEE IF EXPECTING A TRAP 
; BRANCH IF EXPECTING A TRAP 
j ALL ERRORS TO TRAP TO EMT VECTOR 
; UNIQUE ERROR NUMBER 
jADDRESS OF ERROR MESSAGE 
{INSTRUCTION WASNY SUPPOSE TO TRAP 
{REJOIN CODE 



;SEE IF PC - INSTRUCTION 
{CLEAN UP STACK 

{ 

{BRANCH IF GOOO COMPARE 
{ALL ERRORS TO TRAP TO EMT VECTOR 
{UNIQUE ERROR NUMBER 
{ADDRESS OF ERROR MESSAGE 
{PC WAS INCORRECT 



NO TRAP 



{SAVE FPS 
{SET FPP TO 



DOUBLE 



3$: 



MOV 



R5.R4 



{BAD FPS 



{POINT TO RECEIVED DATA TABLE 

{SAVE ACO REbULT 

{VERIFY STATUS 

{BRANCH IF GOOD 

jALL ERRORS TO TRAP TO EMT VECTOR 

; UNIQUE ERROR Nl^BER 

{ADDRESS OF ERROR MESSAGE 

{POINT TO EXPECTED DATA 



H7 



GLOBAl ARENAS 
KDJUA.MAC 



MACY11 30AC1052) 15-MAR-84 
15-MAR-84 15:51 T61 



16 j 



'■ft 



ST 



Pg 5 E_85 



:vf 



SEQ 0085 



4359 

4360 

4361 

4362 

4363 

4 364 

4365 

4366 

4367 

4368 

4369 

4370 

4371 

4372 

4375 

4374 

4375 

4376 

4377 

4378 

4379 

4380 

4381 

4382 

4383 

4384 

4385 

4386 

4387 

4388 

4389 

4390 

4391 

4392 

4393 

4394 

4395 

4396 

4397 

4398 

4399 

4400 

4401 

4402 

4403 

4404 

4405 

4406 

4407 

4408 

4409 

4410 

4411 

4412 

4413 

4414 



021162 
021166 
021172 
021176 
021200 
021202 
021204 

021206 
021212 
021214 
021220 
021222 
021226 
021230 
021232 
021234 
021236 



062704 
004767 
005767 
001403 
104000 
00034 7 
002013 

0C5737 
001002 
000165 
170301 
016504 
020401 
001403 
104000 
000350 
002013 



021244 
021244 

021250 
021256 
021262 
021270 
021272 
021300 
021302 
021310 
021312 
021314 
021316 

021320 
021326 
021332 
021340 
021342 
021350 
021352 
021360 
021362 
021364 
021366 

021370 
021374 

021400 



012737 
004767 
000000 
000001 
000100 
000000 
000000 
000001 
040000 
140000 
000004 

012737 
004767 
000402 
OOOOOO 
OOOOOO 
OOOOOO 
OOC402 
OOOOOO 
000200 
100200 
000004 

005037 
00476 7 
03** 300 



000010 
160736 
157642 



001042 
000020 
000020 



021240 000165 000022 

021244 
021244 



005267 157534 



000002 
000516 
OOOOOO 

OOOOOO 

OOOOOO 



000001 
000446 
OOOOOO 

OOOOOO 

OOOOOO 



001042 
000400 
OOOOOO 



4$ 



5$ 
6$ 



7$ 



ADD 

JSR 

1ST 

BEQ 

ERROR 

.WORD 

.WORD 

1ST 
BNE 

JMP 

STST 

MOV 

CMP 

BEQ 

ERROR 
.WORD 
.WORD 

JMP 



*10,R4 
R7.DATVFR 
COUNT 
5$ 

347 
FPPERR 

GWLAG 

6* 

20(R5) 

Rl 

2C(R5),R4 

R4.R1 

7$ 

350 
FPPERR 

22CR5) 



{BAD ACO 



jVERIFY DATA 

BRANCH IF GOOD 

ALL ERRORS TO TRAP TO EMT VECTOR 

UNIQUE ERROR NUMBER 

ADDRESS OF ERROR MESSAGE 

SEE IF NEED TO CHECK FEC 

BRANCH IF NEED TO CHECK 

RETURN FROM TEST 

SAVE FEC 

GET FEC 

VERIFY FEC 

BRANCH IF GOOD 

ALL ERRORS TO TRAP TO EMT VECTOR 

LNIQUE ERROR NUMBER 

ADDRESS OF ERROR MESSAGE 

BAD FEC 

RETURN FROM TEST 



001042 
OOOOOO 
OOOOOO 
OOOOOO 



HOP 10: 
MDIVD: 

♦TEST 62 TEST DIVD - 

TST62: 

INC ITESTN {INCREMENT TEST NUMBER 

jl/AC-FSRC-O TRAPS DISABLED 



001042 
OOOOOO 
OOOOOO 
OOOOOO 



OOOOOO 



MOV 
JSR 
.WORD 


#2,80FLAG 
R7.DVDSUB 
0,0,0,1 


j NO INTERRUPT 
{DO TEST 
j ACO 


.WORD 


100.0,0.0 


;FSRC 


♦ WORD 


0,0,0,1 


tRESULT 


. WORD 40000 
.WORD 140000 
. WORD 4 
t 2/FSRC»0, TRAPS ENABLED 
MOV Ol.SOFLAG 
JSR R7.DVDSUB 
.WORD 402,0,0,0 


l TEST FPS 
{RESULT FPS 
jFEC 

{INTERRUPT 
{DO TEST 
{ACO 


.WORD 


0,0,0,0 


{FSRC 


.WORD 


402,0,0,0 


{RESULT 


.WORD 
.WORD 
.WORD 
{3/ROUND 

CLR 
JSR 
.WORD 


200 

100200 
4 

SOFLAG 

R7.DVDSU6 
34300,0,0,1 


j TE5T FPS 
{RESULT FPS 
jFEC 

{NO INTERRUPT 

{DO TEST 
jACO 



17 



GLOBAL 


AREAS 


MACY11 


30AC1052 


) 15-MAF 


{-84 


16 {58 PAGE 86 




KDJUA. 


MAC 15-MAR-84 


15:51 




T62 


TEST DIVD - 




4415 


021406 


000001 














4416 


021410 


140300 


000000 


OOOOOO 




.WORD 


140300,0,0,0 


{FSRC 


4417 


C21416 


000000 














4418 


021420 


154200 


000000 


OOOOOO 




.WORD 


134200,0,0,1 


{RESULT 


4419 


021426 


000001 














4420 


021430 


00U200 








.WORD 


200 


l TEST EPS 


4421 


021432 


000210 








.WORD 


210 


{RESULT FPS 


4422 










J4/TRUNCATE 






4423 


021434 


005037 


00104 2 






CLR 


QOFLAG 


{NO INTERRUPT 


4424 


021440 


004767 


000334 






JSR 


R7,DVDSUe 


iDO TEST 


4425 


021444 


034500 


000000 


OOOOOO 




.WORD 


34300,0,0,1 


iACO 


4426 


021452 


000001 














4427 


021454 


140300 


000000 


OOOOOO 




.WORD 


140300,0,0,0 


jFSRC 


4428 


021462 


000000 














4429 


021464 


134200 


000000 


OOOOOO 




.WORD 


134200,0.0,0 


{RESULT 


4430 


021472 


000000 














4431 


021474 


000240 








.WORD 


240 


1 TEST FPS 


4432 


C21476 


000250 








.WORD 


250 


{RESULT FPS 


4433 










J5/R0UN0 NEGATIVE AC, FSRC 




4434 


021500 


005037 


001042 






CLR 


SOfLAG 


I NO INTERRUPT 


4435 


021504 


004767 


000270 






JSR 


R7,DVDSUB 


{DO TEST 


4436 


021510 


177642 


OOOOOO 


OOOOOO 




.WORD 


177642,0,0,151 


jACO 


4437 


021516 


000151 














4438 


021520 


166600 


000000 


OOOOOO 




.WORD 


166600,0,0,123 


{FSRC 


4439 


021526 


000125 














4440 


021530 


051242 


OOOOOO 


OOOOOO 




.WORD 


51242,0,0,0 


{RESULT 


4441 


021536 


000000 














4442 


021540 


000200 








.WORD 


200 


i TEST FPS 


4443 


021542 


000200 








.WORD 


200 


{RESULT FPS 


4444 










;6/TRUNCATE NEAGTIVE AC, FSRC 




4445 


021544 


005C57 


001042 






CLR 


Q*FLAG 


{NO INTERRUPT 


4446 


021550 


004767 


000224 






JSR 


R7,DVDSUB 


;D0 TEST 


4447 


021554 


177642 


OOOOOO 


OOOOOO 




.WORD 


177642,0.0,151 


{ACO 


4448 


021562 


000151. 














4449 


021564 


16660C 


OCOOOO 


OOOOOO 




.WORD 


166600,0,0,123 


{FSRC 


4450 


021572 


000123 














4451 


021574 


051241 


177777 


177777 




.WORD 


51241,-1,-1,-1 


{RESULT 


4452 


021602 


177777 














4453 


021604 


000240 








.WORD 


240 


j TEST FPS 


4454 


021606 


000240 








.WORD 


240 


{RESULT FPS 


4455 










J7/AC 


>FSRC 






4456 


021610 


005037 


001042 






CLR 


Stff'LAG 


{NO INTERRUPT 


4457 


021614 


004767 


000160 






JSR 


R7.DVDSUB 


:D0 TEST 


4458 


021620 


055521 


047621 


100333 




.WORD 


55521.47621,10033;. - 1 * ACO 


4459 


021626 


177777 














4460 


021630 


055521 


04 7621 


100333 




.WORD 


55521,47621,100333. -1 iFSRC 


4461 


021656 


177777 














4462 


021640 


040200 


OOOOOO 


OOOOOO 




.WORD 


40200,0,0,0 


{RESULT 


4463 


021646 


000000 














4464 


021650 


007 717 








.WORD 


7 717 


j TEST FPS 


4465 


021652 


007700 








.WORD 


7700 


{RESULT FPS 


4466 










(8/UN0ERKL0W TRAPS ENABLED. UV 


RESULT 


4467 


021654 


012737 


000001 


001042 




MOV 


01.80FLAG 


j INTERRU 


4468 


021662 


004 767 


000112 






JSR 


R7.0VDSUH 


{DO TEST 


4469 


021666 


100200 


OOOOOO 


OOOOOO 




.WORD 


100200.0,0,0 


j ACO 


4470 


021674 


000000 















SEQ 0086 



J7 



GLOBAL AREAS 
KDJ11A.MAC 



MACU1 30AC1O52) 
15-MAR-84 15:51 



15-MAR-34 

T62 



16; 58 PAGE 87 
TEST DIVD - 



SEQ 008 7 



021676 
021704 
021706 
021714 
02] 716 
021720 
021722 

021724 
021732 
021736 
021744 
021746 
021754 
021756 
021764 
021 ?66 
021770 
021772 



077777 
000000 
140400 
100201 
002200 
102210 
000012 

012737 
004 767 
077000 
000525 
000303 
140001 
036650 
064003 
001700 
101702 
000010 



021774 000167 000242 



4471 
4472 
4473 
4474 
4475 
4476 
4477 
4478 
44 79 
4480 
4481 
4482 
4483 
4484 
4485 
4486 
4487 
4488 
4489 
4490 
4491 
4492 
4493 
4494 
4495 
4496 
4497 

4498 
4499 
4500 
4501 
4502 
4503 
4504 
4505 
4506 
4507 
4508 
4509 
4510 
4511 
4512 
4513 
4514 
4515 
4516 
4517 
4518 
4519 
4520 
4521 
4522 
452 5 
4524 
4525 
4526 022056 000167 000042 



022000 
022002 
022010 
022014 
022016 
022020 
022024 
022026 
022032 

022034 

022036 



022040 
022046 
022050 
022052 
022054 



012605 
012737 
012702 
170102 
010504 
062704 
172415 
016502 
170102 

174414 
170000 



032737 
001426 

104000 
000551 
002013 



000000 000000 
100200 100200 



.WORD 77777,0,0,0 fFSRC 

. WORD 140400 , 100200 , 100200 , 100201 



{RESULT 



000001 001042 

000042 

123465 012346 

000001 140000 

163002 103645 



.WORD 2200 
.WORD 102210 
.WORD 12 
{9/0VERFL0W TRAPS ENABLED 



I TEST FPS 
jRESULT FPS 
jFEC 



MOV 
JSR 
.WORD 

.WORD 

.WORD 

.WORD 
.WORD 
.WORD 



*l,B#fLAG 
R7,DVDSU6 
77000 . 123465 , 12346 , 525 



I INTERRUPT 
{DO TEST 

i AGO 



303,1,140000,140001 
36650 , 163002 , 103645 , 64003 



jFSRC 
jRESULT 



1700 

101702 

10 



l TEST FPS 
{RESULT FPS 
}FEC 



JMP HOP 11 {HOP OVER SUBROUTINE 

*X*X*X+X*X*X*X*X*X*X*X*X*X*X*X*X*XaX*X*X*X*X*XsX*X*X*X*X*X 

*x*x*x*x*x*x*x*x*x*x+x+x+x+x*x*x+x*x*x*x*x*x*x*x*x*x*x*x+x 

DIVD SUBROUTINE: 

AGO 

FSRC 

FPS BEFORE EXECUTION 

FPS AFTER EXECUTION 

(EEC) 

♦X«X*X*X*X*X*X*X*X«X*X*X*X#X*X*X*X*X*X»X*XVX*X*X*X*X*X*X*X 
*X*X*X*X*X*X*X*X*X*X*X*X*X*X*X*X*X*X*X*X*X*X*X*X*X*X*X*X*X 



022062 000244 
000200 



000010 
000030 



DVDSUB: 



U 



MOV (SP)*,R5 

MOV *50*.S*FPVEC 

MOV 0200, R2 

LDFPS R2 

MOV R5,R4 

ADD 010, R4 

LOD (RS).ACO 

MOV 30(R5),R2 

LDFPS R2 

DIVD CR4),AC0 
CFCC 



I RETURN ADDRESS TO USE AS POINTER 

{REDIRECT TRAP VECTOR 

iSET TO DOUBLE MODE FOR LOAD 

{LOAD FPS 

{POINT TO FSRC DATA 



{LOAD ACO WITH 
{GET TEST FPS 
{LOAD TEST FPS 



TEST DATA 



000001 001042 



r INSTRUCTION DIDNT TRAP 



BIT 

UEQ 

ERROR 
.WORD 
.WORD 

JMP 



Ol.SWFLAG 
2$ 

351 

FPPERR 

2$ 



{♦TEST INSTRUCTION 

{WAIT FOR POSSIBLE FPA TRAP 



I VERIFY A NO TRAP CONDITION 
{BRANCH IF GOOD 

{ALL ERRORS TO TRAP TO EMT VtCTOR 
j UNIQUE ERROR NUMBER 
{ADDRESS OF ERROR MESSAGE 
INSTRUCTION SHOULD HAVE TRAPPED 
{REJOIN CODE 



I<7 



GLOBAL ARtAS 
KDJ11A.MAC 



MAO 11 30AC1052) 
15-MAR-84 15:51 



15-MAR-84 
T62 



I65 



! ?i 



ST 



PAQE 
DIVD 



88 



SEQ 0088 



4527 

4528 

4529 

4550 

4531 

4532 

4533 

4534 

4535 

4536 

4537 

4538 

4539 

4540 

4541 

4542 

4543 

4544 

4545 

4546 

4547 

4548 

4549 

4550 

4551 

4552 

4553 

4554 

4555 

4556 

4557 

4558 

4559 

4560 

4561 

4562 

4563 

4564 

4565 

4 566 

4567 

4568 

4569 

4570 

4571 

4572 

4573 

4574 

4575 

4576 

4577 

4578 

4579 

4580 

4 581 

4582 



022062 

022070 
022072 
022074 
022076 

022100 
022104 
022106 
022110 
022114 
022116 
022120 
022122 



022124 
022126 
022132 
022134 
022140 
022142 
022146 
022150 
022152 
022154 

022156 

022160 
022164 
022170 
022174 
022176 
022200 
022202 

022204 
022210 
022212 
022216 
022220 
022224 
022226 
022230 
022232 
022234 



032737 
001005 
104000 
000352 
002013 

000167 
012604 
005726 
022704 
001403 
104000 
000353 
002013 



170203 
012702 
170102 
012701 
174011 
026503 
001403 
104000 
0OO354 
005013 

010504 
062704 
004767 
005767 
001403 
104000 
000355 
002013 

005737 
001002 
000165 
170301 
016504 
020401 
001403 
104000 
000356 
002013 



{INSTRUCTION TRAPPED 



000001 001042 50$: 



000020 
022036 



51$: 



000200 
001126 
000032 



000020 
157756 
156644 



001042 
000034 
000034 



022236 000165 000036 

022242 
022242 



{COMMON 
2$: 



3$: 

4$: 



5$ 
6$ 



7$ 



BIT 

BNE 

ERROR 

.WORD 

.WORD 

JMP 

MOV 

TST 

CMP 

BEQ 

ERROR 
.WORD 
.WORD 



n.SOTLAG 

51$ 

352 
FPPERR 

21 

(SP)*,R4 
CSP)* 

01$, R4 
2$ 

353 
TPPERR 



{SEE IF EXPECTING A TRAP 
jEHANCH IF EXPECTING A TRAP 
j ALL ERRORS TO TRAP TO EMT VECTOR 
j UNIQUE ERROR NUMBER 
{ADDRESS OF ERROR MESSAGE 
{INSTRUCTION WASNT SUPPOSE TO TRAP 
j REJOIN CODE 

l SEE IF PC - INSTRUCTION 
iCLEAN UP STACK 

{BRANCH IF GOOD COMPARE 
{ALL ERRORS TO TRAP TO EMT VECTOR 
{UNIQUE ERROR NUMBER 
{ADDRESS OF ERROR MESSAGE 
{PC WAS INCORRECT 



CODE FOR TRAP AND NO TRAP 



STFPS 

MOV 

LDFPS 

MOV 

STD 

CMP 

BEQ 

ERROR 

.WORD 

.WORD 

MOV 

ADD 

JSR 

TST 

BEQ 

ERROR 

.WORD 

.WORD 

TST 
BNE 
JMP 
STST 

MOV 

CMP 

BEQ 

ERROR 

.WORD 

.WORD 

JMP 



R3 

4200.R2 

R2 

ORECDST.Rl 

ACO.(Rl) 

32CR5),R3 

3$ 

354 
FPPERR 

R5.R4 

G20.R4 

R7.DATVER 

COUNT 

5$ 

355 
FPPERR 

30FLAG 

6$ 

34(R5) 

Rl 

34(R5),R4 

R4.R1 

7$ 

356 
FPPERR 

36CR5) 



{BAD FPS 



{BAD ACO 



{SAVE FPS 

;SET FPP TO DOUBLE 

{POINT TC RECEIVED DATA TABLE 

{SAVE ACO RESIXT 

{VERIFY STATUS 

{BRANCH IF GOOD 

{ALL ERRORS TO TRAP ,0 EMT VECTOR 

{UNIQUE ERROR NUMBER 

{ADDRESS OF ERROR MESSAGE 

{POINT TO EXPECTED DATA 

{VERIFY DATA 

{BRANCH IF GOOO 

{ALL ERRORS TO TRAP TO EMT VECTOR 

{UNIQUE ERROR NUMBER 

{ADDRESS OF ERROR MESSAGE 

{SEE IF NEED TO CHECK EEC 

{BRANCH IF NEED TO CHECK 

{RETURN FROM TEST 

{SAVE FEC 

jGET FEC 

{VERIFY FEC 

{BRANCH IF GOOD 

{ALL ERRORS TO TRAP TO EMT VECTOR 

t UNIQUE ERROR NUMOER 

{ADDRESS OF ERROR MESSAGE 

{BAD FEC 

l RETURN FROM TEST 



HOP 11: 
MMUl.F; 



{•TEST 65 



TEST MULF 



L7 



GLOBAL 


AREAS 


MACU1 


30AC105; 
15:51 


KDJ11A. 


MAC 15 -MAR -84 


4583 








4534 


022242 






4585 


022242 


005267 


156536 


4586 








4587 


022246 


005037 


001042 


4588 


022252 


004 767 


000564 


4589 


022256 


000000 


000000 


4590 


022262 


000000 


OOOOCO 


4591 


022266 


000000 


000000 


4592 


022272 


007517 




4593 


022274 


007504 




4594 








4595 


022276 


005037 


001042 


4596 


022302 


004 767 


000534 


4597 


022306 


0O0200 


000000 


4590 


022312 


000000 


000000 


4599 


022316 


000000 


000000 


4600 


022322 


000013 




4601 


022324 


000004 




4602 








4603 


022326 


005037 


001042 


4604 


022332 


004 767 


000504 


4605 


022336 


000100 


000000 


4606 


022342 


000300 


000000 


4607 


022346 


000000 


000000 


4608 


022352 


007500 




4609 


022354 


007504 




4610 








4611 


022356 


005037 


001042 


4612 


022362 


004767 


000454 


4613 


022366 


040200 


000000 


4614 


022372 


040177 


177777 


4615 


022376 


040177 


177777 


4616 


022402 


000000 




4617 


022404 


000000 




4618 








4619 


022406 


005037 


0010^*2 


4620 


022412 


004767 


000' 2' 


4621 


022416 


040177 


177?"/ 


4622 


022422 


040200 


oooooo 


4623 


022426 


040177 


177777 


4624 


022432 


00004 C 




4625 


022434 


000040 




4626 








462/ 


022436 


00503'' 


01042 


4628 


022442 


004 76/ 


000374 


4629 


022446 


040100 


000000 


4630 


022452 


040100 


000000 


4631 


022456 


040020 


000000 


4632 


022462 


000012 




4633 


022464 


000000 




4634 








4635 


022466 


005037 


001042 


4636 


0224 72 


004767 


0C0344 


405/ 


0224 76 


01/500 


000000 


4638 


022502 


023652 


125252 



15-MAR-84 
T63 



16t59 PAGE 89 



MULF 



SEQ 0089 



TST63: 

INC ITESTN j INCREMENT TEST NUMBER 

il/ACC-FSRC-0 -INTERRUPTS DISABLED 



CLR 


80FLAG 




|N0 INTERRUPT 


JSR 


R7.Ml.FSUB 




iDO TEST 


.WORD 


0,0 j 


ACO 




.WORD 


0.0 i 


FSR 




.WORD 


0,0 




{RESULT 


.WORD 


7517 




j TEST FPS 


.WORD 


7504 




jRESULTANT FPS 


j2/AC>FSRC-0 - 


INTERRUPTS 


0' 




CLR 


QOFLAG 




jNO INTERRUPT 


JSR 


R7.MLFSUB 




jOO TEST 


.WORD 


200,0 i 


ACO 




.WORD 


0,0 ; 


FSRC 




.WORD 


0,0 




{RESULT 


.WORD 


13 




l TEST FPS 


.WORD 


4 




jRESULTANT FPS 


j3/AC*0 FSRC>0 


- 






CLR 


SOFLAG 




jNO INTERRUPT 


JSR 


R7.MLFSUB 




$00 TEST 


.WORD 


100,0 j 


ACO 




.WORD 


300 , ; 


FSRC 




.WORD 


0,0 




, RESULT 


.WORD 


7500 




5 TEST FPS 


.WORD 


7504 




jRESULTANT FPS 


}4VAC-1 FSRC 


- ROUND 






CLR 


80FLAG 




jNO INTERRUPT 


JSR 


R7.MLFSUB 




jDO TEST 


.W09D 


40200,0 { 


ACO 




.WORD 


40177, -1 




iFSRC 


.WORD 


40177,-1 




;RESULT 


.WORD 







j TEST FPS 


.WORD 







jRESULTANT FPS 


;b/TRUNCATE 








CLR 


a*f'LAG 




jNO INTERRUPT 


JSR 


R7,MLFSU3 




jDO TEST 


.WORD 


40177.-1 




1 ACO 


.WORD 


40200,0 j 


FSRC 




.WORD 


40177,-1 




; RESULT 


.WORD 


40 




j TEST FPS 


.WORD 


40 




jRESULTANT FPS 


j6/N0RMALI7F 








CLR 


HOFi.AG 




jNO INTERRUPT 


JSR 


R7,MLFSUfl 




jDO TEST 


.WORD 


40100,0 { 


ACO 




.WORD 


40100,0 i 


FSRC 




.WORD 


40020,0 




jRESU T 


.WORD 


12 




j TEST FPS 


.WORD 







iRESU TANT FPS 


j 7/ROUNO 








CLR 


aoFLAG 




jNO INTERRUPT 


JSR 


R7.MLFSUB 




jDO TEST 


.WORD 


17500,0 j 


ACO 




.WORD 


23652,125252 


jFSRC 



GLOBAL ARFAS 

KDJUA.MAC 



MACU1 3OAQ052) 15-MAR-84 
15-MAR-84 15;51 T63 



16; 



•?l 



I PAGE 90 
!ST MULF 



M7 



SEQ 0090 



4639 

4640 

4641 

4642 

4643 

4644 

4645 

4646 

4647 

4648 

4649 

4650 

4651 

465 t ? 

4653 

4654 

4655 

4656 

4657 

4658 

4659 

4660 

4661 

4662 

4663 

4664 

4665 

4666 

4667 

4668 

4669 

4670 

4671 

4672 

4673 

4674 

4675 

4676 

4677 

4678 

4679 

4680 

4681 

4682 

4683 

4684 

4685 

4686 

4687 

4688 

4689 

4690 

4691 

4692 

4693 

4694 



022506 
022512 
022514 

022516 
022522 
022526 
022532 
022536 
02254 2 
022544 

022546 
022552 
022556 
022562 
022566 
022572 
0225/4 

0225 76 
022602 
022606 
022652 
022616 
022622 
022624 

022626 
022632 
022636 
022642 
022646 
022652 
022654 

022656 
022664 
022670 
022674 
022700 
022704 
022706 
022710 

022712 
022720 

022724 
022730 
022734 
022740 
022742 
022744 



022754 



003177 
007417 

007400 

005037 
004767 
040342 
176543 

176711 
007500 
007510 

005037 
004767 
144600 
154000 
060400 
000017 
000000 

005037 
004 767 
060000 
140377 

160177 
000017 
000010 

005037 

004 767 
060000 
140377 
160177 
007547 
007550 

012737 
0047*7 

000200 
000200 
040200 
042117 
142100 
000012 

012 737 
00476/ 

177777 
040300 
100077 
001117 
101116 

ooooio 

012737 
004 767 



177777 



001042 
000314 
177777 
025252 
007324 



001042 
000264 
000000 
000000 
000000 



001042 
000234 

oooooo 

177776 
177776 



001042 
000204 
OOOOOO 
177776 
177776 



000002 001042 

000152 

C00001 

000001 

000002 



OOOOOl 001042 

000116 

177777 

OOOOOO 

177777 



000002 001042 
000062 



.WORD 3177 
.WORD 7417 
.WORD 7400 
t8/AC>0>FSRC ROUND 



-1 



CLR 

JSR 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

{ 9/IAC<FSRC<0, 
CLR 
JSR 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 

;10/AC<FSRC, 
CLR 
JSR 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 

ill/AO0>FSRC, 
CLR 
JSR 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 

jl2/UNDERFL0W, 
HOV 
JSR 
.WORD 
.WORD 
.WORD 
.WORD 
, WORD 
.WORD 

{13/OVERFLOW, 
MOV 
JSR 
.WORD 
.WORD 
.WORD 
.WORD 
. WORD 
.WORD 

5 14/OVERFLOW 
MUV 
JSR 



80FLAG 

R7.MLFSUB 

40342.-1 

176543,025252 

176711,67324 

7500 

7510 
ROUND 

SOFLAG 

R7.MLFSUB 

144600,0 

154000,0 

60400,0 

17 


ROUND 

BWLAG 

R7.MLFSUB 

60000 , 

140377,177776 

160177,177776 

17 

10 
TRUNCATE 

SOFLAG 

R7.MLFSU6 

60000 , 

140377,177776 

160177,177776 

7547 

7550 
NO INTERRUPTS 

02 t a*FLAG 

R7.MLFSUB 

200,1 

200,1 

40200,2 

42117 

142100 

12 
TRAP 

<H,a#R.ACJ 

R7,MLISUB 

177777.-1 

40300.0 

100077,-1 

1117 

101116 

10 
NO TRAP 

02, Cm- LAG 

R7.MLFSUB 



{RESULT 
j TEST FPS 
iRESULTANT FPS 

I NO INTERRUPT 

{DO TEST 
I AGO 

jFSRC 

iRESULT 
j TEST FPS 
iRESULTANT FPS 

j NO INTERRUPT 

j DO TEST 

} ACO 

jFSRC 
(RESULT 
; TEST FPS 
iRESULt' FPS 

jNO INTERRUPT 

{DO TEST 

jACO 

jFSRC 
{RESULT 

I TEST FPS 

{RESULT FPS 

f N0 INTERRUPT 

I DO TEST 

{ACO 

jFSRC 
j RESULT 

1 TEST FPS 

{RESULT FPS 

{NO INTERRUPT 
sDO TEST 

{ACO 

t FSRC 

{RESULT 

j TEST FPS 

{RESULT FPS 

(FfcC 

t INTERRUPT 

l DO TEST 

{ACO 
jFSRC 

{RESULT 
{ test FPS 

{RESULT FPS 
{ FEC 

{NO JNURRUPT 
;00 TEST 



GLOBAL AREAS 
KDJ11A.MAC 



MACYll 30MC1052) 
15-MAR-84 15:51 



N7 



15-MAR-84 
T63 



16: 



! ?l 



I PAGE 91 
:ST MULF 



SEQ 0091 



4695 
4696 
4697 

4698 
4699 
4 700 
4701 
4 702 
4703 
4 704 
4705 
4 706 
707 
708 
709 
710 
4711 
4 712 
4713 
4714 
4715 
4716 
4717 
4 71.8 
4719 
4 720 
4721 
4 722 
4723 
4 724 
4 725 
4726 
4 727 
4 728 
4 729 
4 730 
4731 
4732 
4733 
4/34 
4 735 
4 736 
4 737 
4 738 
4 739 
4 740 
4 741 
4 742 
4 743 
4 744 
4 745 
4/46 
4/4 / 
4/48 
4 74" 
4 750 



022760 077700 000000 

022764 077700 000000 

022770 000000 000000 

022774 040117 

022776 040106 

023000 000010 

023002 012737 000001 001042 

023010 004767 000026 

023014 123465 000000 

023020 100022 000000 

023024 123465 000000 

023030 004 000 

023032 104000 

023034 000014 



023036 000167 000242 



023042 
023044 
02 3052 
023056 
023060 
023062 
023064 
023070 
023074 

023076 
023100 



023102 
023110 
023112 
023114 
023116 



012605 
012737 
012702 
170102 
1/2415 
010504 
062704 
016502 
170102 

171014 
170001 



03273/ 
001426 

104000 
000357 
002013 



023124 
000200 



000004 
000014 



.WORD 
.WORD 
.WORD 
.WORD 
. WORD 
.WORD 

{15/UNDEFINED 
MOV 
JSR 
.WORD 
.WORD 
. WORD 
. WORD 
.WORD 
.WORD 

{ 



77700,0 
77700,0 
0,0 
40117 
40106 
10 
VARIABLE IN FSRC, 

ai.aoFLAG 

R7.MLFSUB 

123465,0 

100022,0 

123465.0 

4000 

104000 

14 



{ACO 

jFSRC 

i RESULT 

l TEST FPS 

{RESULT FPS 

iFEC 

TRAP ENABLED 

{INTERRUPT 
{DO TEST 
I ACO 
jFSRC 
{RESULT 

{ TEST FPS 

{RESULT FPS 

{FEC 



JMP H0P12 

*x*x*x*x*x»x*x±x*x+x*x*x*x*x*x*x*x*x*;:*x*x*x*x*x*x*x*x*x*x 
*x+x*x*x+x*x*x*x*x*x*x*x+x*x*x+x*x+x*x*x+x+x*x*x*x*x*x*x*x 

I ACO 

; FSRC 

1 FPS BEFORE EXECUTION 

FPS AFTER EXECUTION 

(FEC) 

+X*X*X*X+X*X*X+X+X*X*X*X*X+X*X*X*X*X*X*X*X*X*X*X*X*X+X*X+y 

*x±x*x*x*x<<x*x*x*x*x*x*x*x*x*x*x*x*x*x*x*x*x*x*x*x*x*x*x*x 



000244 



000001 001042 



MLFSUB: MOV (SP)*,R5 

MOV O50;.fl#FPVEC 

MOV 0200, R2 

LDFPS R2 

LDD (R5).AC0 

MOV R5.H4 

ADD 04.R4 

MOV 14(R5),R2 

LOFPS R2 

KW (R4),AC0 
]$: SETF 

! INSTRUCTION DIDNT TRAP 



023120 000167 000042 



02/124 032/37 000001 001042 

023132 00100b 
023134 104000 



BIT 
BEQ 
ERROR 
. WORD 
.WORD 

JMP 



#1,3/>FLAG 
2$ 

35/ 
FPPERR 

Pi 



; INSTRUCT ION TRAPPED 
50$: BIT #1,3#KLAU 

BNt 51$ 

ERROR 



j RETURN ADDRESS TO USE AS POINTER 

{REDIRECT TRAP VECTOR 

{SET TO DOUBLE MODE FOR LOAD 

;LOAD FPS 

{LOAD ACO WITH TEST DATA 

{POINT TO FSRC DATA 

jC-fT TEST .■PS 
jLOAD TEST FPS 

{♦TEST INSTRUCTION 

{WAIT FOR POSSIBLE FPA TRAP. 



{VERIFY A NO TRAP CONDITION 
{BRANCH IK GOOD 
ALL ERRORS TO TRAP TO EMT VECTOR 
UNIQUE ERROR NUMBER 
ADDRESS Of-" ERROR MESSAGE 
{INSTRUCTION SHOULD HAVE TRAPPED 
I REJOIN CODE 



iSEE IF EXPECT ING A TRAP 

{BRANCH IF EXPECTING A TRAP 

{ALL ERRORS TO TRAP TO EMT VECTOR 



B8 



GLOBAL 


ARIAS 


MACU1 


30AU052) 


15 -MAR 84 16 


j 58 PAGE 92 


KDJ11A. 


MAC 15 -MAR 84 


15:51 


T63 


TEST MULF 


4751 


023136 


000360 






.WORD 


360 


4 752 


023140 


002013 






.WORU 


FPPERR 


4 753 














4 754 


023142 


0O0167 


000020 




JMP 


21 


4755 


023146 


012604 




51$! 


MOV 


(SP)»,R4 


4 756 


023150 


005726 






TST 


CSP). 


4757 


023152 


022704 


023100 




CMP 


#i$,R4 


4 758 


023156 


001403 






BEQ 


21 


4759 


023160 


104000 






ERROR 




4 760 


023162 


000361 






.WORD 


361 


4761 


023164 


002013 






.WORD 


FPPERR 


4/62 














4763 








i 






4 764 








i COMMON 


COOE TOR TRAP ANO NO 


4 765 


0P3166 


170203 




2$: 


STFPS 


R3 


4766 


023170 


012702 


000200 




MOV 


♦200, R2 


4767 


023174 


17010? 






LDFPS 


R2 


4 768 


023176 


012701 


001126 




MOV 


♦RECDST.R1 


4769 


023202 


174011 






STO 


ACO.(Rl) 


4770 


023204 


026503 


000016 




CMP 


16(R5),R3 


4771 


023210 


001403 






BEQ 


31 


4772 


023212 


104000 






ERROR 




4 7 73 


023214 


0O0362 






.WORD 


362 


4774 


023216 


002013 






.WORD 


FPPERR 


4775 














4776 


02322C 


010504 




31: 


MOV 


R5,R4 


477/ 


023222 


062 704 


ooooio 




ADD 


♦10, R4 


4778 


023226 


0O4 76 7 


156676 


4«; 


JSR 


R7.DATVFR 


4779 


023232 


005 76 7 


155602 




TST 


COUNT 


4780 


023236 


001403 






BEQ 


5« 


4 78!. 


023240 


104000 






ERROR 




4 78? 


023242 


000363 






.WORD 


363 


4783 


023244 


002013 






.WORD 


FPPERR 


4 784 














4 785 


023246 


005737 


00104? 


5$j 


TST 


»*f LAG 


4 786 


023252 


001002 






BNE 


6$ 


4/87 


023254 


0OO165 


000020 




.)MP 


20CR5) 


4 788 








1 VERIFY 


ERROR 


STATUS 


4 789 


025260 


170301 




61: 


STST 


Rl 


4 790 


023262 


0165O4 


000020 




MOV 


20CR5),R4 


4791 


023266 


020401 






CMP 


R4.R1 


4/9,? 


0232 70 


001403 






BEQ 


71 


4793 


023212 


104000 






ERROR 




4;«m 


0232 74 


0003t>4 






.WORD 


364 


4 795 


023276 


002013 






. UOPO 


FPPERR 


4 796 














4/9/ 


023300 


000165 


000022 


71: 


JMP 


22CR5) 


4/98 


023304 






HOP 12: 






4 799 


023504 






MMULD: 






4800 














4801 








••TtST 


64 


TEST MULD 


480? 








l j***** '.****** ************** 


480 ^ 


023304 






T5T64: 






4804 


023^04 


005?*, 7 


1554/4 




INC 


• TtSTN 


4805 








ll/AC'O 






4806 


0^3310 


00503/ 


001042 




CLR 


M^PLAG 



SEG 0092 



iUNIQUE ERROR NUMBER 
lADDRESS OF ERROR MESSAGE 
I INSTRUCTION WASNT SUPPOSE TO TRAP 
: REJOIN CODE 

iSEE IF PC ■ INSTRUCTION 
iCLEAN UP STACK 

i BRANCH IF GOOO COMPARE 
lALL ERRORS TO TRAP TO EMT VECTOR 
j UNIQUE ERROR NUMBER 
lADDRESS OF ERROR MESSAGE 
j PC WAS INCORRECT 



TRAP 



iSAVE FfS 

FPP TO 



I SET 



D0U6LF 



I BAD FPS 



iPOINT TO RECEIVED DATA TABLE 

I SAVE ACO RESULT 

iVERIFY STATUS 

l BRANCH IF GOOO 

I ALL ERRORS TO TRAP TO EMT VECTOR 

iUNIQUE ERROR NUMG*R 

:ADDRES5 OF ERROR MESSAGE 

jPOINT TO EXPECTED DATA 



(VERIFY DATA 

I BRANCH IF GOOO 

i ALL ERRORS TO TR/^P TO EMT VECTOR 

iUNIQUE ERROR NUMBER 

lADDRESS OF ERROR MESSAGE 



I BAD ACO 

I SEE IF NEED TO CHECK FEC 

sBRANCH IF NEED TO CHECK 

jRETURN FROM TEST 

I SAVE EEC 
iGET FEC 
iVERIFY FEC 
I BRANCH IF GOOO 

lALL ERRORS TO TRAP TO EMT VECTOR 
iUNIQUE ERROR NUMB EH 
lADDRESS OF ERROR MESSAGE 
iBAD FEC 
I RE TURN FROM TEST 



iINCWEMtNT TEST NUMBER 
|N0 INTERRUPT 



C8 



GLOW At. 
KDJUA. 


ARiAS 

MAC 1 


S-MW^J* 


$ wm W) l5 - MAR T ga 


l6, ?f S T p A6b 9S 




4807 


023314 


004/6/ 


000554 






JSR 


R7.MLDSU6 
100,0,0,0 | 


iDO TEST 


4808 


023520 


000100 


OOOOOO 


OOOOOO 




.WORD 


ACO 


^809 


023326 


000000 














4810 


023330 


000411 


17777/ 


OOOOOO 




.WORD 


411,-1.0,1 | 


FSRC 


4811 


023336 


0OOO01 














481c 5 


023340 


000000 


OOOOOO 


OOOOOO 




.WORD 


0,0,0,0 i 


RESULT 


481.5 


023346 


000000 














4814 


023350 


000200 








.WORD 


200 | 


TEST FPS 


4815 


023352 


000204 








.WORD 


204 , 


RESULTANT FPS 


4016 










I2/FSRC-0 






4817 


0233^4 


005037 


001042 






CLR 


fi^fLAG i 


NO INTERRUPT 


4818 


023360 


004767 


000510 






JSR 


R7,MLDSUe 


iDO TEST 


4819 


023364 


077777 


OOOOOO 


OOOOOO 




.WORD 


77777,0,0,0 


ACO 


4820 


023372 


000000 














4821 


023374 


000000 


OOOOOO 


OOOOOO 




.WORD 


0,0,0,0 jFSRC 




4822 


023402 


000000 














4823 


023404 


000000 


OOOOOO 


OOOOOO 




.WORD 


0,0,0,0 


RESULT 


4824 


023412 


000000 














4825 


023414 


00 7/00 








.WORD 


7 700 


TEST FPS 


4826 


023416 


007704 








.WORD 


7 704 


RESULTANT FPS 


4827 










13/AC 


•1 






4828 


023420 


005037 


001042 






CLR 


B4FIAG 


NO INTERRUPT 


4829 


023424 


004767 


000444 






JSR 


R7.MLDSU6 


■ DO TEST 


4830 


023430 


040200 


OOOOOO 


OOOOOO 




.WORD 


40200,0,0,0 


ACO 


4831 


023436 


000000 














4832 


023440 


000277 


177777 


177777 




.WORD 


277.-l.-l.-l 


FSRC 


4833 


023446 


177777 














4834 


023450 


0O0277 


177777 


177777 




.WORD 


277, -1,-1, -X 


I RESULT 


4835 


023456 


17^777 














4836 


023460 


007717 








.WORD 


7717 


TEST FPS 


4837 


023462 


007700 








.WORD 


7700 


RESULTANT FPS 


4833 










14/AC 


>FSWC>0, 


TRUNCATE 




4839 


023464 


005037 


001042 






CLR 


S*fLAG 


NO INTERRUPT 


4840 


0234 70 


004767 


000400 






JSR 


R7,MLDSUe 


iDO TEST 


4841 


023474 


065500 


OOOOOO 


OOOOOO 




.WORD 


65500,0,0,1 


ACO 


4842 


023502 


0OOO01 














4843 


0235O4 


037577 


177777 


1777/7 




.WORD 


37577, 1.1, 2 


FSRC 


4844 


023512 


177776 














4845 


023514 


065077 


177777 


177777 




.WORD 


6507/, -1,-1, 1 


{ RESULT 


4846 


023522 


177777 














4847 


023524 


007/17 








.WORD 


771/ 


TEST FPS 


4848 


023526 


007700 








.WORD 


7700 


[RESULTANT FPS 


4849 










15/AC 


<FSRC<0 






4850 


023530 


00503/ 


001042 






CLR 


B*fLAG 


(NO INTERRUPT 


4851 


023534 


0O4767 


000334 






JSR 


R7.Ml.05U0 


iDO TEST 


4852 


0^3540 


137577 


177777 


1777/7 




.WORD 


137%//, -1, 1, d 


lACO 


485? 


023546 


1777/6 














4854 


023550 


165400 


OOOOOO 


OOOOOO 




.WORD 


165400. 0.0. 1 


iFSRC 


4855 


023556 


000001 














4856 


023560 


065000 


OOOOOO 


OOOOOO 




,UOMD 


65000,0,0,0 


1 RESULT 


485/ 


023566 


OOOOOO 














4858 


0235/0 


007717 








.WORD 


7 71/ 


1 TEST FPS 


4859 


023572 


007 700 








.WORD 


7 700 


1 RESULTANT FPS 


4860 










}6/AC 


>F5RO0 






4861 


023574 


00503/ 


001042 






CI R 


fcOFLAG 


iNO INTERRUPT 


4862 


023600 


004 767 


000c?70 






JSR 


R7,MLD5Ue 


lUU TtST 



SEC] 0093 



D8 



GLOBAL 
KDJ11A. 


Sr s uWAtk 


3fl§(^52) 15.MAR f gj 


165 ^st p A6Ed 94 




4863 


023604 


017500 


OOOOOO 


OOOOOO 




.WORD 


17500,0.0.0 


lACO 


4864 


023612 


000000 














4865 


023614 


123652 


125252 


125252 




.WORD 


123652,125252 


,125252,125252 jFSRC 


4866 


023622 


125252 














4367 


023624 


103177 


177777 


177777 




.WORD 


103177,-1,-1, 


•1 iRESU.T 


4868 


023632 


177777 














4869 


023634 


0O0200 








.WORD 


200 


1 TEST FPS 


4870 


023636 


0C0210 








.WORD 


210 


iRESULTANT FPS 


4871 










j?/UNDERFLOW, 


TRAPS DISABLED 




4872 


023640 


0050 »i 7 


001042 






CLR 


QGfLAG 


jNO INTERRUPT 


4873 


023644 


00s 767 


000224 






JSR 


R7.MLDr;^ 


iDO TEST 


4874 


023650 


0003X) 


OOOOOO 


OOOOOO 




.WORD 


300,0,0,^32 


lACO 


4875 


023656 


000252 














487b 


023660 


00037 7 


000001 


000002 




.WORD 


377.1,2,3 


jFSRC 


4877 


023666 


000003 














4878 


023670 


000000 


OOOOOO 


OOOOOO 




.WORD 


0.0,0,0 


^RESULT 


4879 


023676 


000000 














4680 


023700 


005740 








.WORO 


5740 


j TEST FPS 


4881 


023702 


005744 








.WORD 


5744 


iRESULT FPS 


4882 










18/UNOERFLOU, 


TRAP ENABLED 




4883 


023704 


012737 


000001 


001042 




MOV 


♦ l.WLAG 


I INTERRUPT 


4884 


023712 


004767 


000156 






JSR 


R7,ML0SUB 


iDO TEST 


4885 


023ns 


100277 


000001 


000002 




.WORD 


100277,1,2,-1 


;ACO 


4886 


023724 


177777 














4887 


023726 


100300 


000001 


000001 




.WORD 


100300,1,1,1 


jFSRC 


4888 


0237S4 


000001 














4889 


023736 


040417 


040001 


077403 




.WORD 


40417,40001,77403.0 iRESU 


4890 


023744 


000000 














4891 


023746 


002217 








.WORD 


2217 


l TEST FPS 


4892 


023750 


102200 








.WORD 


102200 


iRESULT FPS 


4893 


023752 


000012 








.WORD 


12 


(►'EC 


4894 










j9/0VERFL0W, TRAPS DISABLED 




4895 


023754 


005037 


001042 






CLP 


D*fLAG 


jNO INTERRUPT 


4896 


023760 


004767 


000110 






JSR 


R7.MLDSU6 


iDO TEST 


4897 


023764 


177777 


177777 


177777 




.WORD 


-1.1,-1.-1 


j AGO 


4898 


023772 


177777 














4899 


023774 


040200 


177777 


177777 




.WORD 


40200, 1,-1, - 


1 jFSRC 


4900 


024002 


177777 














4901 


024004 


OOOOOO 


OOOOOO 


OOOOOO 




.WORD 


0,0,0,0 


jRESULf 


4902 


024012 


000000 














4903 


024014 


006740 








.WORD 


6740 


j TEST FPS 


4904 


024016 


006746 








.WORD 


6746 


iRESULT FPS 


4905 










UO/QVERFLOW. 


TRAPS ENABLED 




4906 


024020 


012737 


000001 


001042 




MOV 


n,a*FLAG 


j INTERRUPT 


4907 


024026 


0O4767 


000042 






JSR 


R7.MLDSUP 


}D0 TEST 


4908 


024032 


157700 


025252 


025252 




.WORD 


157700,25252, 


25252,25252 


4909 


024040 


025252 














4910 


024042 


167700 


OCOOOO 


OOOOOO 




.WORD 


167700,0,0,0 


iFSRC 


4911 


024050 


OOOOOO 














4912 


024052 


007420 


017777 


117777 




.WORD 


7420,017777,117777.117777 


4913 


024060 


117777 














4914 


024062 


001240 








.WORD 


1240 


j TEST FPS 


4915 


024064 


101242 








.WORD 


101242 


jRESULT FPS 


4916 


024066 


000010 








.WORD 


10 


|FEC 


4917 










I 








4918 



















SEQ 0094 



ACO 



j RESULT 



E8 



GLOBAL ARf.AS 
KOJllA.MAC 



MAC Y 11 30A(1052) 
15-MAR-84 15:51 



15-MAR-84 
T64 



16 5 58 PAGE 95 
TEST MULD 



SEQ 0095 



4919 

4920 

4921 

4922 

4923 

4924 

4925 

4926 

4927 

4928 

4929 

4930 

4931 

4932 

4933 

4934 

4935 

4936 

4937 

4938 

4939 

4940 

4941 

4942 

4943 

4944 

4945 

4946 

4947 

4948 

4949 

4950 

4951 

4952 

4953 

4954 

4955 

4956 

4957 

4958 

4959 

4960 

4961 

4962 

4963 

4964 

4965 

4966 

4967 

4968 

4969 

4970 

4971 

4972 

4973 

4974 



024070 000167 000242 



024074 
024076 
024104 
024110 
024112 
024114 
02^116 
024122 
024126 

024130 
024132 



024134 
024142 
024144 
024146 
024150 



024156 
024164 
024166 
024170 
024172 

024174 
024200 
024202 
024204 
024210 
024212 
024214 
024216 



024220 
024222 



012605 
012737 
012702 
170102 
172415 
010501 
062701 
016502 
170102 

171011 
170011 



032737 
001426 
104000 
000365 
002013 



024152 000167 



032737 
001005 
104000 
000366 
002013 

000167 
012604 
005726 
022704 
001403 
104000 
000367 
002013 



170203 
012702 



JMP 



HOP 13 



♦x*x*x*x*x*x*x*x*x*x*x*x*x*x*x*x*x*x*x*x*x*x*x*x*x*x*x*x*x 
*x*x+x*x*x*x+x*x*x*x*x*x+x*x*x*x*x+x*x+x+x+x+x+x*x*x*x*x+x 

ACO 

FSRC 

FPS BEFORE EXECUTION 

FPS AFTER EXECUTION 

(FEC) 

*x+x*x*x*x*x*x*x*x*x*x*x+x*x*x*x*x*x*x*x*x+x*x*x*x*x*x+x*x 
*x*x*x*x*x*x*x*x*x*x*x*x*x*x*x*x*x*x*x*x*x*x*x*x*x*x*x*x*x 



024156 000244 
000200 



000010 
000030 



MLDSUBj MOV 
MOV 
MOV 
L0FP5 
LDD 
MOV 
ADO 
MOV 
LDFPS 



II 



MULD 
SETD 



(SP)*,R5 

050$,S0fPVEC 

0200 ,R? 

R2 

(R5),AC0 

R5.R1 

010, Rl 

30(R5),R2 

R2 

(Rl).ACO 



000001 001042 



j INSTRUCT ION DIDNT TRAP 



000042 

000001 001042 



BIT 

BEQ 

ERROR 

.WORD 

.WORD 

JMP 



01, QOFI AG 
2$ 

365 
FPPERR 

2$ 



INSTRUCTION TRAPPED 



50$: 



000020 
024132 



51$: 



000200 



j COMMON 
2$: 



BIT 
BNE 
ERROR 
.WORD 

.WORD 

JMP 

MOV 

TST 

CMP 

BEQ 

ERROR 

. WORD 

.WORD 



CODE F- 

STFPS 

MOV 



01.S0fl.AG 
51$ 

366 
FPPERR 

2$ 
(5P)*,R4 

(sp;» 

01$, R4 
2$ 

36 7 
FPPERR 



OR TRAP AND 

RS 
0200, R2 



j RETURN ADDRESS TO USE AS POINTER 

{REDIRECT TRAP VECTOR 

I SET TO DOUBLE MODE FOR LOAD 

{LOAO FPS 

jLOAD ACO WITH TEST DATA 

{POINT TO FSRC DATA 

{GET TEST FPS 
{LOAD TEST FPS 

{♦TEST INSTRUCTION 

{WAIT FOR POSSIBLE FpA TRAP. 



{VERIFY A NO TRAP CONDITION 
{BRANCH IF GOOD 

{ALL ERRORS TO TRAP TO EMT VECTOR 
{UNIQUE ERROR NUMBER 
{AODRESS Of ERROR MESSAGE 
{INSTRUCTION SHOULD HAVE TRAPPED 
j REJOIN CODE 



iSEE IF EXPECTING A TRAP 
{BRANCH If EXPECTING A TRAP 
{ALL ERRORS TO TRAP TO EMT VECTOR 
jWIQUE ERROR NUMBER 
{ADDRESS Of ERROR MESSAGE 
{INSTRUCTION WASNT SUPPOSE TO TRAP 
{REJOIN CODE 

{SEE If PC - INSTRUCTION 
{CLEAN UP STACK 

J 

{BRANCH If GOOD COMPARE 
,ALL ERRORS TO TRAP TO EMT VECTOR 
{UNIQUE ERROR NUMBER 
{ADDRESS Of ERROR MESSAGE 
{PC WAS INCORRECT 



NO TRAP 



{SAVE FPS 
{SET ^PP TO 



DOUBLE 



F8 



GLOBAL 


ARFAS 


MACYll 


30AC105; 
15:51 


KDJ11A, 


MAC 15 -MAR -84 


4975 


024226 


170102 




4976 


024230 


012701 


001126 


4977 


024234 


174011 




4978 


024236 


026503 


000032 


4979 


024242 


001403 




4980 


024244 


104000 




4981 


024246 


000370 




4982 


024250 


002013 




4983 








4984 


024252 


010504 




4985 


024254 


062704 


000020 


4986 


024260 


004767 


155662 


4987 


024264 


005767 


154550 


4988 


024270 


001403 




4989 


024272 


104000 




4990 


024274 


000371 




4991 


024276 


002G13 




4992 








4993 


024300 


005737 


001042 


4994 


024304 


001002 




4995 


024306 


000165 


000034 


4996 








4997 


024312 


170301 




4998 


024314 


016504 


000034 


4999 


024320 


020401 




5000 


024322 


001403 




5001 


024324 


104000 




5002 


024326 


000372 




5003 


024330 


002013 




50O4 








5005 


024332 


000165 


000036 


5006 


024336 






5007 


024336 






5008 








5009 








5010 








5011 


024336 






5012 


024336 


005267 


154442 


5013 








5014 


024342 


005037 


001042 


5015 


024346 


004 767 


000554 


5016 


024352 


000100 


OOOOOO 


5017 


024 356 


012546 


177777 


5018 


024362 


000000 


OOOOOO 


5019 


024366 


000000 


OOOOOO 


5020 


024372 


000013 




5021 


024374 


000004 




5022 








5023 


024 3 76 


005037 


001042 


5024 


024402 


004 767 


000520 


5025 


024406 


01235* 


177777 


5026 


024412 


000000 


OOOOOO 


5027 


024416 


oooooo 


OOOOOO 


5028 


024422 


oooooo 


OOOOOO 


5029 


024426 


000003 




5030 


024430 


000004 





15-MAR 



l6i ^ S r p A8E D 96 



SEQ 0096 



3$: 

4$: 



l.DFPS 

MOV 

STD 

CMP 

BEQ 

ERROR 

.WORD 

.WORD 

MOV 

ADD 

JSR 

TST 

BEQ 

PRROR 

.WORD 

.WORD 



Stt 



TST 
BNi : 
JMP 
{VERIFY ERROR 
6$: STST 
MOV 
CMP 
BEQ 
ERROR 
.WORD 
.WORD 

7$: JM? 

M0P13; 

MMOOF*: 

j ; ** *********** 

;*TEST 65 

l • ************* 

TST65: 



R2 

ORcCDST.Rl 

AC0,CR1> 

32CR5),R3 

3$ 

370 

FPPERR 

R5,R4 
*20,R4 

R7.DATVER 

COUNT 

5* 

371 

FPPERR 

S*FLAG 

ex 

34CR5) 
iTATUS 
Rl 

34(R5),R4 
R4.R1 
7$ 

372 

FPPERR 

36(R5) 



{BAD FPS 



{POINT TO RECEIVED DATA TABLE 

j SAVE ACO RESULT 

{VERIFY STATUS 

{BRANCH IF GOOD 

I ALL ERRORS TO TRAP TO EMT VECTOR 

{UNIQUE ERROR NUMBER 

{ADDRESS OF ERROR MESSAGE 

{POINT TO EXPECTED DATA 



{BAD ACO 



{VERIFY DATA 

{BRANCH IF GOOD 

{ALL ERRORS TO TRAP TO EMT VECTOR 

{UNIQUE ERROR NUMBER 

{ADDRESS OF ERROR MESSAGE 

{SEE IF NEED TO CHECK FEC 
{BRANCH IF NEED TO CHECK 
{RETURN FROM TEST 

{SAVE FEC 

{GET FEC 

{VERIFY FEC 

{BRANCH IF GOOD 

{ALL ERRORS TO TRAP TO EMT VECTOR 

{UNIQUE ERROR NUMBER 

{ADDRESS OF ERROR MESSAGE 

{BAD FEC 

{RETURN FROM TEST 



************************************************** 

TEST MODF 

************************************************** 



ll/AC-0 



{2/FSRC 



INC 
FSRC 

CLR 
JSR 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
»0 
CLR 
IIH 
.WORD 
.WO«D 
.WORD 
.WORD 
.WORD 
.WORD 







1TESTN 

QOFLAG 

R7.M0FSU6 

100,0 ,ACO 

12346,-1 

0,0 

0,0 

13 

4 

WOFLAG 

R/.MDFSUB 

12356, -1 

0,0 {FSRC 

0,0 

0,0 

3 



{INCREMENT TEST NUMBER 



jNO INTERRUPT 

{00 TEST 

{FSRC 

{FRACTIONAL RESULT 
{INTEGER RESULT 
{ TEST FPS 
{RESULTANT FPS 

{NO INTERRUPT 

{DO TEST 
;AC0 

{FRACTIONAL RESULT 
{INTEGER RESULT 
l TEST FPS 



{RESULTANT FPS 



G8 



OBAl 
J11A. 


ARFAS MAC til 
MAC 15 -MAR -84 


SgCgB) 


15-MAR-84 


L6! ?!st p A8&f 97 




5031 








{3/AC 


-0 






5032 


024432 


005037 


001042 




CLR 


80FLAG 


iNO INTERRUPT 


5033 


024436 


004767 


000464 




JSR 


R7.MDFSUB 


{DO TEST 


5034 


024442 


000000 


OOOOOO 




.WORD 


0,0 


jACO 


5035 


024446 


177777 


177777 




.WORD 


-l.-l 


jFSRC 


5036 


024452 


000000 


OOOOOO 




.WORD 


0,0 


{FRACTIONAL RESULT 


5037 


024456 


000000 


OOOOOO 




.WORD 


0,0 


{INTEGER RESULT 


5038 


024462 


007500 






.WORD 


7500 


1 TEST FPS 


5039 


024464 


007504 






.WORD 


7504 


{RESULT FPS 


5040 








;4/AC 


>FSRC>0 






5041 


024466 


005037 


001042 




CLR 


SOFLAG 


{NO INTERRUPT 


5042 


024472 


004767 


000430 




vJSR 


R7,M0FSU6 


iDO TEST 


5043 


024476 


046252 


125252 




.WORD 


46252,125252 


jACO 


5044 


024502 


040300 


OOOOOO 




.WORD 


40300.0 {FSRC 




5045 


024506 


000000 


OOOOOO 




.WORD 


0,0 


{FRACTIONAL RESULT 


5046 


024512 


046377 


177777 




.WORD 


46377,-1 


{INTEGER RESULT 


5047 


024516 


000013 






.WORD 


13 


l TEST FPS 


5048 


024520 


000004 






.WORD 


4 


{RESULTANT FPS 


504 9 








;5/AC 


>FSRC>0 






5050 


024522 


005037 


001042 




CLR 


BOFLAG 


{NO INTERRUPT 


5051 


024526 


004767 


000374 




JSR 


R7.M0FSUB 


;D0 TEST 


5052 


024532 


077652 


125252 




.WORD 


77652,125252 


jACO 


5053 


024536 


0403CO 


OOOOOO 




.WORD 


40300,0 jFSRC 




5054 


024542 


000000 


OOOOOO 




.WORD 


0,0 


{FRACTIONAL RESULT 


5055 


024546 


077777 


177777 




.WORD 


77777.-1 


{INTEGER RESULT 


5056 


024552 


000000 






.WORD 





j TEST FPS 


5057 
5058 
5059 


024554 


000004 






.WORD 


4 


{RESULTANT FPS 








5 6/AC 


>0<FSRC, 


INTEGERS 




5060 


024556 


005037 


001042 




CLR 


OOFLAG 


jNO INTERRUPT 


5061 


024562 


004767 


000340 




JSR 


R7,H0FSUe 


{DO TEST 


5062 


024566 


060600 


OOOOOO 




.WORD 


60600,0 


sACO 


5063 


024572 


147400 


025700 




.WORD 


147400,25700 


{FSRC 


5064 


024576 


OOOOOO 


OOOOOO 




.WORD 


0,0 


{FRACTIONAL RESULT 


5065 


024602 


170000 


025700 




.WORD 


170000,25700 


; INTEGER RESULT 


5066 


024606 


007400 






.WORD 


7400 


j TEST FPS 


5067 


024610 


007404 






.WORD 


7404 


{RESULT FPS 


5068 








?7/AC 


<0<FSRC, 


FRACTIONAL 




5069 


024612 


005037 


001042 




CLR 


8*f*LAG 


jNO INTERRUPT 


5070 


024616 


004 767 


000304 




JSR 


R7.MDFSUB 


iDO TEST 


5071 


024622 


100227 


177777 




.WORD 


100227,-1 


jACO 


5072 


024626 


044025 


025252 




.WORD 


44025,25252 


jFSRC 


5073 


024632 


104061 


021251 




.WORD 


104061,21251 


{FRACTIONAL RE 


5074 


024636 


OOOOOO 


OOOOOO 




.WORD 


0,0 


{INTEGER RESULT 


5075 


024642 


OOOOOO 






.WORD 





{ TEST FPS 


5076 


024644 


000010 






.WORD 


10 


{RESULT FPS 


5077 








}8/AC 


<0>FSRC, 


TRUNCATE 




5078 


024646 


005037 


001042 




CLR 


30FLAG 


iNO INTERRUPT 


5079 


024652 


004767 


000250 




JSR 


R7.MDFSUB 


jDO TEST 


5080 


024656 


046252 


125252 




.WORD 


46252,125252 


jACO 


5081 


024662 


040300 


OOOOOO 




.WORD 


40300,0 


{FSRC 


5082 


024666 


OOOOOO 


OOOOOO 




.WORD 


0,0 


{FRACTIONAL RESULT 


5083 


024672 


046577 


177777 




.WORD 


46377,-1 


{INTEGER RESULT 


5084 


024676 


000053 






.WORD 


53 


{ TEST FPS 


5085 


024 700 


000044 






.WORD 


44 


{RESULT FPS 


5086 








t9/R0 


UND TNTEt 


ER 





SEQ 0097 



GLOBAL ARFAS 
KDJ11A,MAC 



-18 



MACY11 30AC1052) 15-MAR-84 
15-MAR-84 15:51 T65 



16} 



^TEST MODI 



.98 



SEQ 0098 



5087 
5088 
5089 
5090 
5091 
5092 
5093 
5094 
5095 
5096 
509? 
5098 
5099 
5100 
5101 
5102 
5103 
5104 
5105 
5106 
5.107 
5108 
5109 
5110 
5111 
5112 
5113 
5114 
5115 
5116 
5117 
5118 
5119 
5120 
5121 
5122 
5123 
5124 
5125 
5126 
5127 
5128 
5129 
5130 
5131 
5132 
5133 
5134 
5135 
5136 
5137 
5138 
5139 
5140 
5141 
5142 



024 702 
024 706 
024712 
024 716 
024 722 
024 726 
024732 
024 734 

024736 
024 742 
024746 
024752 
024 756 
024762 
024 766 
024770 

024772 
024776 
025002 
025006 
025012 
025016 
025022 
025024 

025026 
025032 
025036 
025042 
025046 
025052 
025056 
025060 

025062 
025070 
025074 
025100 
025104 
025110 
025114 
025116 
025120 



005037 
004 767 
046252 
040300 
000000 
046377 
000013 
000004 

005037 
004767 
040777 
040200 
040177 
040740 
000000 
000000 

005037 
004767 
000000 
000000 
000000 

oooooo 
oooooo 

000004 

005037 
004 767 
040225 
066652 
OOOOOO 
066707 
007027 
007004 

012737 
004 767 
076000 
076000 
OOOOOO 
033600 
001000 
101006 
000010 



001042 
000214 

125252 
OOOOOO 
COOOOO 
177777 



001042 
000160 
177777 
OOOOOO 
177770 
OOOOOO 



001042 
000124 
OOOOOO 
OOOOOO 
OOOOOO 
OOOOOO 



001042 
000070 
125252 
052525 
OOOOOO 
025160 



000001 001042 

000032 

OOOOOO 

OOOOOO 

OOOOOO 

OOOOOO 



025122 000167 000310 



CLR SOFLAG 

J5R R7.MDFSUB 

.WORD 46252, 125252 

.WORD 40300,0 

.WORD 0,0 

.UORD 46377,-1 

.WORD 13 

.WORD 4 



ilO/TRUNCATE FRACTION 



CLR bJOFLAG 

JSR R7.M0FSUB 

.WORD 40777,-1 

.WORD 40200,0 

.WORD 40177,177770 

.WORD 40740,0 

.UORD 

.WORD 



{ll/ROUND INTEGER 



CLR 

JSR 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 



BOFLAG 

R7,hDFSUB 

0,0 

0,0 

0,0 

0,0 



4 



;lc>/R0UND FRACTION 



CLR 
JSR 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
i /OVERFLOW 
MOV 
JSR 
.WORD 
.UORD 
.WORD 
.WORD 
.UORD 
.WORD 
.WORD 

jiiP 



S*FLAG 

R7,M0FSU6 

40225,125252 

66652,52525 

0.0 

66707,25160 

7027 

7004 

4>1,8#FLAG 

R7,MDFSUe 

76000,0 

76000,0 

0.0 

33600,0 

1000 

101006 

10 

H0P14 



{NO INTERRUPT 

{DO TEST 

jACO 
jFSRC 
{FRACTIONAL RESULT 

{INTEGER RESULT 
j TEST FPS 
{RESULT FPS 

>N0 INTERRUPT 

j DO TEST 

jACO 
{FSRC 

i FRACTIONAL RESULT 
{INTEGER RESULT 
j TEST FPS 
{RESULT FPS 

{NO INTERRUPT 

;D0 TEST 
jACO 
{FSRC 

{FRACTIONAL RESULT 
{INTEGER RESULT 
{ TEST FPS 
{RESULT FPS 

{NO INTERRUPT 

{DO TEST 

{ACO 

jFSRC 
{FRACTIONAL RESULT 

{INTEGER RESULT 
{ TEST FPS 
{RESULT FPS 

{INTERRUPT 

{DO TEST 
jACO 
i FSRC 

{FRACTIONAL RESULT 
{INTEGER RESULT 
{ TEST FPS 
{RESULT FPS 
jFEC 



t *x*x*x*x*x*x*x*x*x*x*x*x*x*x*x*x*x*x*x*x*x*x*x*x*x*x*x*x*x 

l*X*X*X + X*X*X*X*X*X*X*X + X<«X*X*X*X*X*X*X*X*X*X*X*X*X*X*X*X*X 



ACO 

FSRC 

FRACTIONAL RESULT 

INTEGER RESULT 

FPS BEFORE EXECUTION 



18 



GLOBAi 


ARt AS 


MACU1 


30AQ052*) 15 -Ml 


K0J11A. 


MAC 15 -MAR -84 


15:51 


5143 








5144 








5145 








5146 








5147 








5148 








5149 


025126 


012605 




5150 


025130 


012737 


025216 00O2<34 


5151 


025136 


012702 


000200 


5J52 


02? 142 


170102 




5153 


025144 


172415 




5154 


025146 


012701 


025426 


5155 


025152 


172511 




5156 


025154 


010501 




5157 


025156 


062701 


000004 


5158 


025162 


016502 


000020 


5159 


025166 


170102 




5160 








5161 


025170 


171411 




5162 


025172 


170001 




5163 








5164 








5165 


025174 


032737 


000001 001042 


5166 


025202 


0C1426 




5167 


025204 


104000 




5168 


025206 


000373 




5169 


025210 


002013 




5170 








5171 


025212 


000167 


000042 


5)72 








5173 








5174 


025216 


032737 


000001 001042 


5175 


025224 


001005 




5176 


025226 


104000 




5177 


025230 


000374 




5178 


025232 


002013 




5179 








5180 


025234 


000167 


000020 


5181 


025240 


012604 




518? 


025242 


005726 




5183 


025244 


022704 


025172 


5184 


025250 


001403 




5185 


025252 


104000 




5186 


025254 


000375 




5187 


025256 


002013 




5188 








5189 








5190 








5191 


025260 


170203 




5192 


025262 


012702 


000200 


5193 


025266 


170102 




5194 


0^5270 


012701 


001126 


5195 








5196 


025274 


174011 




5197 


0252 76 


02050? 


00002c' 


5198 


025302 


001403 





T65 



16:58 PAGE 99 
TEST MODF 



SEQ 0099 



FPS AFTER 
CFEC) 



EXECUTION 



J*X*X*X*X*X*X*X*X*X*X*X*X*X*X*X*X*X«X*X*X*X*X*X*X*X*X*X*X*X 

} *x*x*x*x*x*x*x*x*x*x*x*x*x*x*x*x*x*x*x*x*x*x*x*x*x*x*x*x*x 



MDFSUB; MOV 
MOV 
MOV 
LDFPS 

LDD 
MOV 
LDD 
MOV 
ADD 
MOV 
LDFPS 



1$: 



MODF 

SETF 



CSP).,R5 

♦50$,S0FPVEC 

0200 ,R2 

R2 

(R5),AC0 

♦M0DGAR.R1 

CRD.ACl 

R5.R1 

04, Rl 

20(R5),R2 

R2 

(Rl).ACO 



t INSTRUCTION DIDNT TRAP 



BIT 

BEQ 

ERROR 

.WORD 

.WORD 

JMP 



♦l.BOFLAG 
21 

373 
J^PERR 

2% 



5 INSTRUCTION TRAPPED 



50$: 


BIT 


♦ 1.6l#fLAG 




BNE 


51* 




ERROR 






.WORD 


MA 




.WORD 


FPPERR 




JMP 


::i 


51*: 


MOV 


CSP). ,RA 




TST 


( Si' . ♦ 




cup 


♦i*,R4 




BEQ 


2* 




ERROR 






. WORD 


375 




.WTflD 


FPPtPW 


.•COMMON CODE F 


OR TRAP *ND 


2*j 


STFPS 


R3 




hOV 


0200. He 




LDL^ 


R2 




MOV 


♦RECD5T.R1 


{SAVE 


FRACTIONAL RESULT 




STD 


ACO.CRn 




CMP 


22(R5).R3 




BEU 


3$ 



j RETURN ADDRESS TO USE AS POINTER 

{REDIRECT TRAP VECTOR 

{SET TO DOUBLE MODE FOR LOAD 

{LOAD FPS 

{LOAD ACO WITH TEST DATA 

{LOAD KNOWN INTO AC1 

i 

{POINT TO FSRC DATA 

{GET TEST FPS 
{LOAD TEST FPS 

j*TEST INSTRUCTION 

{WAIT FOR POSSIBLE EPA TRAP. 



{VERIFY A NO TRAP CONDITION 
{BRANCH IF GOOO 

{ALL ERRORS TO TRAP TO EMT VECTOR 
sUNIUUE ERROR NUMBER 
{ADDRESS OF ERROR MESSAGE 
{INSTRUCTION SHOULD HAVE TRAPPED 
{REJOIN CODE 



{SEE IF EXPECTING A TRAP 
{BRANCH IF EXPECTING A TRAP 
;ALL ERRORS TO TRAP TO EMT VECTOR 
{UNIQUE ERROR NUMBER 
{ADDRESS OF ERROR MESSAGE 
{INSTRUCTION WASNT SUPPOSE TO TRAP 
{REJOIN CODE 

{SEE IF PC • INSTRUCTION 
{CLEAN UP STACK 

l 

{BRANCH IF GOOD COMPARE 
{ALL ERRORS TO TRAP TO EMT VECTOR 
{UN I CUE ERROR NUMBER 
{ADDRESS OF ERROR MESSAGE 
{PC WAS INCORRECT 



U'J TRAP 



{SAVE FPS 
{SET FPP TO 



DOUBLE 



{POINT TO RECEIVED DATA TABLE 

iSAVF ACO RrSUt.T 
l ; /f-HIM 5 I AT US 
{BRANCH IF GOOD 



GLOBAt. ARE- AS 
KDJ11A.MAC 



J8 



5199 
5200 
5201 
5202 
5203 
5204 
5205 
5206 
5207 
5206 
5209 
5210 
5211 
5212 
5213 
5214 
5215 
5216 
5217 
5218 
5219 
5220 
5221 
5222 
5223 
5224 
5225 
5226 
5227 
5228 
5229 
5230 
5231 
5232 
5233 
5234 
5235 
5236 
5237 
5238 
5239 
5240 
5241 

5242 
5243 
5244 
5245 
5246 
524 7 
5248 
524S 
5250 
5251 
5252 
5- J 53 
5254 



025304 
025306 
025310 

025312 
025314 
025320 
025324 
025330 
025332 
025334 
025336 



025340 
025342 
025344 
025350 
025354 
025360 
025362 
025364 
025366 

025370 
025374 
025376 
025402 
025404 
025410 
025412 
025414 
025416 
025420 



MACU1 30AC1052) 
15-MAR-84 15;51 

104000 
000376 
002013 



025426 
025434 

025436 

025436 



0254 36 
025436 

025442 
025446 
025452 
025460 
025462 
0254 70 
0254 72 
025500 



010504 
062704 

004 767 

005 76 7 
001403 
104000 
00037 7 
002013 



174111 
010504 
062704 
004 76 7 
005767 
001403 
104000 
000400 
002013 

005737 
001002 
000165 
170301 
016504 
020401 
001403 
104000 
000401 
002013 



025422 000165 



117111 
177777 



005037 
004 767 
012345 

177777 
000100 
000000 
000000 
000000 



000010 
154604 
153510 



000014 
154554 
153460 



001042 
000024 
000024 



000026 
177777 



00526 7 153342 



001042 
001164 
17 7777 

000000 

000000 



15-MAR-84 16 


:58 PAGE 100 


T65 


TEST MODF 




ERROR 






.WORD 


376 




.WORD 


FPPERR 


3$; 


MOV 


R5,R4 




ADD 


010, R4 


4'*: 


JSR 


R7.DATVFR 




TST 


COUNT 




BEQ 


5t 




ERROR 






.WORD 


377 




.WORD 


FPPERR 


{SAVE INTEGER 


RESULT 


5$: 


STD 


AC1.CR1) 




MOV 


R5.R4 




ADD 


♦14, R4 




JSR 


R7.DATVFR 




TST 


COUNT 




BEG 


6* 




ERROR 






.WORD 


400 




.WORD 


FPPERR 


6*: 


TST 


QfrFLAG 




BNE 


71 




JMP 


24CR5) 


7$: 


STST 


Rl 




MOV 


24(R5),R4 




CMP 


R4.R1 




BEQ 


8$ 




ERROR 






.WORD 


401 




.WORD 


FPPERR 


8$: 


JMP 


26CR5) 


7777 MODGARj 


.WORD 


-i.-l.-l.-l 


H0P14: 







SEQ 0100 



177777 
000000 
000000 



j ALL ERRORS TO T/?AP TO EMT VECTOR 
t UNIQUE iRSOR NUMBER 
l ADDRESS OF ERROR MESSAGE 
iDAD FPS 

jPOINT TO EXPECTFO DATA 

{VERIFY JATA 

{BRANCH IF GOOD 

I ALL ERRORS TO TRAP TO EMT VECTOR 
{UNIQUE ERROR NUMBER 
{ADDRESS OF ERROR MESSAGL 
I BAD ACO 

{SAVE AC1 RESULT 
{POINT TO EXPECTED 

{VERIFY DATA 

{BRANCH IF GOOD 

{ALL ERRORS TO TRAP TO EMT VECTOR 

{UNIQUE ERROR NUMBER 

{ADDRESS OF ERROR MESSAGE 
{BAD AC1 

i SEE IF NEiEO TO CHECK FEC 

i BRANCH IF NEED TO CHECK 

{RETURN FROM TEST 

{SAVE FEC 

{GET FEC 

{VERIFY FEC 

{BRANCH IF GOOD 

{ALL ERRORS TO TRAP TO EMT VECTOR 

{UNIQUE ERROR NUMBER 

{ADDRESS OF ERROR MESSAGE 

{BAD FEC 
{RETURN FROM TEST 

{KNOWN DATA FOR ACl 



MMODD: 

{ *TEST 66 TEST MODD 

• ;****************« <'*******♦********♦***♦** + *** <>***«**«*********4 

TST66: 

INC STESTN {INCREMENT TEST NUMBER 

{l/AC>FSRC-0 

CLP 

JSR 

.WORD 

.WORD 
.WORD 



STESTN 

BdFLAG 
R7.M0DSUB 
12345, 1,-1.-1 

100,0,0,0 

0,0,0,0 



tNO INTERRUPT 

{DO TEST 
I ACO 

{FSRC 

{FRACTIONAL RESULT 



I<8 



GLOBAL 


AREAS 


MAC 111 


30AC1052) 15-MAF 


1-84 ] 


L6:58 PAQ 
TEST MO 


E 101 




KDJ11A. 


MAC 15 -MAR -84 


15:51 




T66 


DD 




5255 


025502 


000000 


OOOOOO 


OOOOOO 




.WORD 


0,0,0,0 


I INTEGER RESULT 


5256 


025510 


000000 














5257 


025512 


000200 








.WORD 


200 


l TEST FPS 


5258 


025514 


000204 








.WORD 


204 


{RESULTANT FPS 


5259 










12/AC' 


«0<FSRC 






5260 


025516 


005037 


001042 






CLR 


QOFLAG 


j NO INTERRUPT 


5261 


025522 


004767 


001110 






JSR 


R7.MDDSUB 


{DO TEST 


5262 


025526 


000000 


OOOOOO 


OOOOOO 




.WORD 


0,0,0,0 jACO 




5263 


025534 


000000 














5264 


025536 


001234 


177777 


OOOOOO 




.WORD 


1234,-1,0,0 


jFSRC 


5265 


025544 


000000 














5266 


025546 


000000 


OOOOOO 


OOOOOO 




.WORD 


0.0.0,0 


{FRACTIONAL RESULT 


5267 


025554 


000000 














5268 


025556 


000000 


OOOOOO 


OOOOOO 




.WORD 


0,0,0,0 


{INTEGER RESULT 


5269 


025564 


000000 














5270 


025566 


007717 








.WORD 


7717 


i TEST FPS 


5271 


025570 


007704 








.WORD 


7704 


{RESULTANT FPS 


5272 










;3/AC 


>FSRC>0 






527} 


025572 


005037 


001042 






CLR 


&*f*LAG 


jNO INTERRUPT 


5274 


025576 


004767 


001034 






JSR 


R7.M0DSUB 


{DO TEST 


5275 


0256O2 


056252 


125252 


125252 




.WORD 


56252,125252, 


,125252,125250 ;AC0 


5276 


025610 


125250 














5277 


025612 


040300 


OOOOOO 


OCOOOO 




.WORD 


40300,0,0,0 


jFSRC 


5278 


025620 


000000 














5279 


025622 


OOOOOO 


OOOOOO 


OOOOOO 




.WORD 


0,0,0,0 


{FRACTIONAL RESULT 


5280 


025630 


000000 














5281 


025632 


056377 


177777 


177777 




.WORD 


56377,-1,-1,. 


•4 {INTEGER RESULT 


5282 


025640 


177774 














5283 


025642 


000213 








.WORD 


213 


t TEST FPS 


5284 


025644 


000204 








.WORD 


204 


jRESULTANT FPS 


5285 










j4/AC 


<0>FSRC 






5286 


025646 


005037 


001042 






CLR 


SPFLAG 


jNO INTERRUPT 


5287 


025652 


004 767 


000760 






JSR 


R7,MDDSU6 


{DO TEST 


5288 


025656 


140240 


OOOOOO 


OOOOOO 




.WORD 


140240,0,0,0 


;AC0 


5289 


025664 


OOOOOO 














5290 


025666 


063714 


146314 


133572 




.WORD 


63714,146314, 


,133572,167737 jFSRC 


5291 


025674 


167737 














5292 


025676 


OOOOOO 


OOOOOO 


OOOOOO 




.WORD 


0,0,0,0 


{FRACTIONAL RESULT 


5293 


025704 


OOOOOO 














5294 


025706 


163/77 


177777 


162531 




.WORD 


163777 , -1 . 162531 . 125726 : INTEGE 


5295 


025714 


125726 














5296 


025716 


000210 








.WORD 


210 


f TEST FPS 


5297 


025720 


0O02O4 








.WORD 


204 


{RESULTANT FPS 


5298 










;5/AC 


>KSRC>0 






5299 


025722 


005037 


001042 






CLR 


30FLAG 


{NO INTERRUPT 


5300 


025726 


004767 


000704 






JSR 


R7.MDDSU8 


{DO TEST 


5301 


025732 


C56200 


OOOOOO 


OOOOOO 




.WORD 


56200,0,0,1 


jACO 


5302 


025740 


000001 














5303 


025742 


040340 


OOOOOO 


OOOOOO 




.WORD 


40340,0,0.0 


jFSRC 


5304 


025/50 


OOOOOO 














5305 


025 752 


OOOOOO 


OOOOOO 


OOOOOO 




.WORD 


0,0,0,0 


{FRACTIONAL RESULT 


5306 


025760 


OOOOOO 














530 7 


025762 


056340 


OOOOOO 


OOOOOO 




.WORD 


56340,0,0,1 


i INTEGER RESULT 


5308 


025770 


000001 














5? 09 


025772 


000213 








.WORD 


213 


{ TEST FPS 


5310 


025774 


000204 








.WORD 


204 


{RESULTANT FPS 



SEQ 0101 



L8 



GLOBAL 


AREAS 


MACY11 


30AC1052) 15-MAR-84 


16 5 58 PAi 
TEST Mi 


§§D 102 




KDJ11A. 


MAC 15 -MAR -84 


15:51 




T66 




r>3ii 










j6/TRUNCATE 






5312 


025776 


005037 


001042 






CLR 


SflFLAG 


iNO INTERRUPT 


5313 


026002 


004767 


0OCS3O 






JSR 


R7,MDDSU6 


}D0 TEST 


53i4 


026006 


056252 


125252 


125252 




.WORD 


56252,125252, 


,125252,125252 jACO 


5315 


026014 


125252 














5316 


026016 


040300 


000000 


000000 




.WORD 


40300,0,0,0 


»FSRC 


5317 


026024 


000000 














5318 


026026 


000000 


GOOOOO 


000000 




.WORD 


0,0,0,0 


j FRACTIONAL RESULT 


5319 


026034 


000000 














5320 


026036 


056377 


177777 


177777 




.WORD 


56377,-1,-1, 


-1 > INTEGER RESULT 


5321 


026044 


177777 














5322 


026046 


000253 








.WORD 


253 


j TEST FPS 


5323 


026050 


000244 








.WORD 


244 


{RESULT FPS 


5324 










j7/TRUNCATl£ FRACTION 




5325 


026052 


005037 


001042 






CLR 


Q4FLAG 


jNO INTERRUPT 


5326 


026056 


004767 


000554 






JSR 


R7.MDDSUG 


{DO TEST 


5327 


026062 


023252 


125252 


125252 




.WORD 


23252,125252 


,125252,125252 jACO 


5328 


026070 


125252 














5329 


026072 


040300 


000000 


000000 




.WORD 


40300,0,0,0 


jFSRC 


5330 


026100 


000000 














5331 


026102 


023377 


177777 


177777 




.WORD 


23377,-1,-1, 


-1 {FRACTIONAL RESULT 


5332 


026110 


177777 














5333 


026112 


000000 


000000 


000000 




.WORD 


0,0,0,0 


{INTEGER RESULT 


5334 


026120 


000000 














5335 


026122 


000253 








.WORD 


253 


} TEST FPS 


5336 


026124 


000240 








.UORD 


240 


{RESULT FPS 


5337 










{8/R0UND INTEGER 




5338 


026126 


005037 


001042 






CLR 


SOFLAG 


;N0 INTERRUPT 


5339 


026132 


004767 


000500 






JSR 


R7,M0DSUe 


jDO TEST 


5340 


026136 


076600 


000000 


000000 




.WORD 


76600,0,0,125252 j ACO 


5341 


026144 


125252 














5342 


026146 


040 300 


000000 


000000 




.WORD 


40300,0,0,0 


jFSRC 


5343 


026154 


000000 














5344 


026156 


000( 00 


000000 


000000 




.WORD 


0,0,0,0 


{FRACTIONAL RESULT 


5345 


026164 


000000 














5346 


026166 


076700 


000000 


000000 




.WORD 


76700,0,0, -1 


{INTEGER RESULT 


5347 


026174 


177777 














5348 


026176 


000200 








.WORD 


200 


{ TEST FPS 


5349 


026200 


000204 








.WORD 


204 


{RESULT FPS 


5350 










{9/ROUND THROUGH FRACTION 




5351 


026202 


005037 


001042 






CLR 


QOFLAG 


{NO INTERRUPT 


5352 


026206 


004 767 


000424 






JSR 


R7.MDDSUA 


{DO TEST 


5353 


026212 


041525 


052525 


052525 




.WORD 


41525,052525 


,52525,52525 jACO 


5354 


026220 


052525 














5355 


026222 


040300 


000000 


000000 




.WORD 


40300,0,0,0 


i^SRC 


5356 


026230 


000000 














5357 


026232 


040177 


177777 


177777 




.WORD 


40177, 1. -1, 


177740 {FRACTIONAL RESULT 


5358 


026240 


177740 














5359 


026242 


041636 


000000 


000000 




.WORD 


41636,0,0,0 


{INTEGER RESULT 


5360 


026250 


000000 














5361 


026252 


00/700 








.WORD 


7700 


i TF.ST FPS 


5362 


026254 


007 700 








.WORD 


7700 


{RESULT FPS 


5363 










j /OVERFLOW, TRAPS ENABLED 




5364 


026256 


012737 


000001 


001042 




MOV 


#l,a#FLAG 


{INTERRUPT 


1)363 


026264 


004 76 7 


000346 






JSR 


R7.MDDSUB 


{DO TEST 


5366 


026270 


177777 


1777/7 


177 777 




.WORD 


-1.-1,-1.-1 


{ACO 



SEQ 0102 



M8 



GLOBAL AREAS 
KDJ11A.MAC 



MACY11 
L5-MAR-64 



30AU052) 
15:51 



15-MAR-l 



16 1 



?l 



\ PA 



D 



103 



SEQ 0103 



5367 

5368 

5369 

53 70 

5371 

5372 

5373 

5374 

5375 

5376 

5377 

5378 

5379 

5380 

5381 

5382 

5383 

5384 

5385 

5386 

5387 

5388 

5389 

5390 

5391 

5392 

5393 

5394 

5395 

5396 

5397 

5398 

5399 

5400 

5401 

5402 

5403 

5404 

5405 

5406 

5407 

5408 

5409 

5410 

5411 

5412 

5413 

5414 

5415 

5416 

5417 

5418 

5419 

5420 

5421 

5422 



026276 
026300 
026306 
026310 
026316 
026320 
026326 
026330 
026332 
026334 

026336 
026342 
026346 
026354 
026356 
026364 
026366 
026374 
026376 
026404 
026406 
026410 

026412 
026420 
026424 
026432 
026434 
026442 
026444 
026452 
026454 
026462 
026464 
026466 
026470 

0264 72 
026500 
026504 
026512 
026514 
026522 
026524 
026532 
026534 
026542 
026544 
026546 
026550 

026552 
026560 

026564 
026572 



177777 
040400 
000000 
000000 
000000 
100177 
177777 
007700 
107706 
000010 

005037 
004767 

056700 
17777? 

044440 
177777 
000000 
000000 
063161 
040775 
000200 
000204 

012737 
004 767 
066600 
000000 
066600 
OOOCOO 
000000 
000000 
015200 
000000 
04 7 700 
14 7706 
000010 

012737 
004 767 
100277 
17777/ 
100300 
000001 
000000 
000000 
000000 
000000 
005200 
005204 
000010 

012737 

004 76 7 
1002/7 
177777 



000000 000000 
000000 000000 
177777 177777 



00i042 
000270 

000000 000000 

177777 177777 

000000 000000 

100000 000001 



000002 
000212 
000000 

000000 

000000 

000000 



000002 
000132 
000001 

000001 

000000 

oooooo 



001042 

oooooo 
oooooo 
oooooo 
oooooo 



001042 
000002 

000001 

oooooo 
oooooo 



000001 001042 

000052 

000001 000002 



.WORD 

.WORD 

.WORD 

.WORD 
.WORD 
.WORD 



40400,0,0,0 

0,0,0,0 

100177,-1,-1,-1 

7700 

107706 
10 



; /INTEGER CHOPPED TO 56 BITS 



ClR 
JSR 
.WORD 

.WORD 

.WORD 

.WORD 

.WORD 
.WORD 



SOFLAG 

R7.MDDSU6 

56700,0,0,-1 

44440,-1,-1,-1 

0,0,0,0 



{FSRC 
jFRACTIONmL RESULT 

j INTEGER RESULT 

i TEST FPS 

{RESULT FPS 
|FEC 

iNO INTERRUPT 

j DO TEST 

j AGO 

jKSRC 

{FRACTIONAL RESULT 



63161,100000,1,40775 



{INTEGER RESULT 



200 
204 



{/OVERFLOW, TRAPS DISABLED 

MOV *?,8*f*LAG 

JSR R7,MDDSU6 

.WORD 66600,0,0,0 

.WORD 66600,0,0,0 

.WORD 0,0,0,0 

.WORD 15200,0,0,0 

.WORO 47700 

.WORD 14 7706 

.WORD 10 
{/UNDERFLOW, TRAPS DISABLED 

MOV $2,80FLAG 

JSR R7,MDDSU6 

.WORD 100277,1,2. ~ 1 

.WORD 100300,1 ,1,1 

.WORD 0,0,0,0 

.WORD 0,0,0,0 

.WORD 5200 

.WORD 5204 

.WORD 10 



I TEST FPS 
{RESULT FPS 



{/UNDERFLOW TRAPS ENABLED, UV AS RESULT 
MOV #1,S»#F"LAG 
JSR R7.HPDSU6 
.WORD 100277, 1,2, -X 



{NO INTERRUPT 
{DO TEST 
{ACO 

{FSRC 

{FRACTIONAL RESULT 

{INTEGER RESULT 

{ TEST FPS 
{RESULT FPS 
{FEC 

{NO INTERRUPT 

;D0 TEST 
jACO 

{FSRC 

{FRACTIONAL RESULT 

{INTEGER UESULT 

j TEST FPS 
{RESULT FPS 
|FEC 



i INTERRUPT 
{DU TEST 
jACO 



NU 



GLOBAL AREAS 
KDJilA.MAC 



MACY11 30AC1052) 
15-MAR-64 15j51 



15-MAR-84 
T66 



16 



l-S PAGE 104 
TEST MODD 



SEQ 0104 



• 123 
:>• 24 
r .*25 

5 ?6 

5427 

5428 

5429 

51-30 

5451 

543? 

5433 

5434 

54 35 

54 36 

5437 

5438 

5439 

5440 

5441 

544? 

5443 

5444 

5445 

5446 

5447 

5448 

5449 

5450 

5451 

5452 

5453 

5454 

5455 

5456 

5457 

5458 

5459 

5460 

5461 

5462 

5463 

5464 

5465 

5466 

5467 

5468 

5469 

54 70 

54 7 1 

54 72 

54 73 

54 74 

54 75 

54 76 

54 7 7 

54 78 



026574 100300 000001 OOOOOl 

026602 OOOOOl 

026604 040417 040001 077403 

026612 000000 

026614 000000 000000 000000 

026622 000000 

026624 002200 

026626 102200 

026630 000012 



026632 000167 000300 



026636 
026640 
026646 
02665? 
026654 
026656 
026662 
026664 
026666 
026672 
026676 

026700 
026 702 



026704 
026712 
026714 
026716 
026720 



.WORD 
, WORD 
.WORD 



100300,1,1,1 

40417,40001,77403,0 



{FSRC 



I FRACTIONAL RESULT 



0,0,0,0 



.WORD 2200 
.WORD 102200 
.WORD 12 



I INTEGER RESULT 

j TEST FPS 
{RESULT FPS 
jFEC 



026726 
026734 
026 736 
026740 
026742 



012605 
012737 
012702 
170102 
172415 
012701 
172511 
010501 
062701 
016502 
170102 

171411 
170011 



0327"i7 
001426 
104000 
000402 
002013 



032737 

001005 
104000 
000403 
002013 



JMP H0P15 j JUMP OVER SUBROUTINE 

i*X+X+X+X*X*X+X+X+X*X*X+X+X+X+X+X+X*X*X*X+X+X+X+X+X+X*X+X*X 
{*X*X*X*X*X+X*X*X*X*X*X*X*X*X*X*X*X*X*X*X*X*X*X*X+X*X*X+X*X 

! ACO 

j FSRC 

FRACTIONAL RESULT 

INTEGER RESULT 

FPS BEFORE EXECUTION 

FPS AFTER EXECUTION 

(FEC) 

♦ X*X*X*X*X*X*X*X*X*X*X*X*X*X*X*X*X*X*X*X*X*X*)C*X.:X*X*X*X + X 
*X*X*X±X*X*X*X*X*X*X*X*X+X*X*X+X+X+X+X+X*X*X*X*X*X*X+X*X*X 



026 726 000244 
000200 



025426 



000010 
00004C 



OOOOOl 001042 



02^722 000167 000042 



OOOOOl 001042 



MODS 


UB} MOV 


CSP)*,R5 




MOV 


#50$,a<JFPVEC 




MOV 


0200, R2 




LDFPS 


R2 




LDD 


(R5),AC0 




MOV 


OM0DGAR.R1 




LDD 


(Rl).ACl 




MOV 


R5.R1 




ADD 


010, Rl 




MUV 


40CR5),R2 




LDFPS 


R2 


1 


MODD 


(Rn.ACO 


1>: 


SETD 




1 INSTRUCTION DIONT TRAP 




Bit 


tfl.SWFLAG 




BEQ 


2$ 




ERROR 






.WORD 


402 




.WORD 


FPPERR 




JMP 


2$ 


;INS 


TRUCTION TRAPPED 


50$; 


JIT 


Ol.SOFLAG 




BNE 


51$ 




ERROR 






.WORD 


403 




.WORD 


FPPERR 



; RETURN ADDRESS TO USE AS POINTER 

{REDIRECT TRAP VECTOR 

{SET TO DOUBLE MODE FOR LOAD 

{LOAD FPS 

;LOAD ACO WITH TEST DATA 

:LOAD KNOWN INTO ACl 

{POINT TO FSRC DATA 

{GET TEST FPS 
I LOAD TEST FPS 

t+TEST INSTRUCTION 

{WAIT FOR POSSIBLE FPA TRAP. 



{VERIFY A NO TRAP CONDITION 
l BLANCH IF GOOD 

;ALL ERRORS TO TRAP TO EMT VECTOR 
{UNIQUE ERROR NUMBER 
{ADDRESS Of ERROR MESSAGE 
INSTRUCTION SHOULD HAVE TRAPPED 
{REJOIN CODE 



{SEE IF EXPECTING A TRAP 
{BRANCH IF EXPECTING A TRAP 
{ALL ERRORS TO TRAP TO EMT VECTOR 
{UNIQUE [ RROR NUMBER 
{ADDRESS OF ERROR MESSAGE 



B9 



GLOBAi. AREAS 
KDJ11 A.MAC 



MACU1 30AU052) 
15 -MAR 84 15:51 



54 79 

5480 

5481 

5482 

5483 

5484 

5485 

5486 

548/ 

5488 

5489 

5490 

5491 

5492 

5493 

5494 

5495 

5496 

5497 

5498 

5499 

5500 

550] 

5502 

5503 

5504 

5505 

5506 

5507 

5508 

5509 

5510 

5511 

5512 

5513 

5514 

5515 

5516 

5517 

5518 

5519 

55?0 

5521 

5522 

5523 

5524 

5525 

5526 

552/ 

5528 

5529 

5530 

5551 

5*j32 

SV 3 5 

5554 



026744 
026750 
026752 
026754 
026760 
026762 
026/64 
026766 



02b T'O 
0267/2 
0*67/6 
027000 

0270O4 
027006 

027012 
027014 
027016 
027020 

027022 
027024 
027030 
027034 
027040 
02/042 
02/044 
027046 



027050 
02 7052 
027054 
02/060 
02/064 
02/0/0 
0270/2 
02/074 
02/0/6 

02/100 
02/104 
027106 
02/112 
02/114 
02/120 
02/122 
02/124 
02/126 
027130 



00016/ 
012604 
005726 
022704 
001403 
104000 
000404 
002013 



170203 
012702 
170102 
012701 

1/4011 
026503 
001403 
104000 
000405 
002013 

010504 
062704 

00476^ 

00576/ 
001403 
104 OOO 
000406 
002013 



174111 
010504 
062704 
0O4767 
005767 
001403 
104000 
000407 
002013 

005737 
001002 

0OO165 
170301 
016504 
020401 
001405 
104000 
r>004 10 
00201* 



000020 
026702 



15-MAR-84 
T66 



51li 



16?58 PAGE 105 
TEST MODD 



SEQ 0105 



000200 
001126 

000042 



000020 
153112 
152000 



0000 30 
153062 
151750 



000044 
000044 



JMP 

MOV 

TST 

CMP 

BEQ 

ERROR 

.WORD 

.WORD 



21 

(SP)» 

(SP)» 

01I.R4 

21 

404 
FPPERR 



R4 



I INSTRUCTION WASNT SUPPOSE TG TRAP 
jREJOIN CODE 

l SEE IF PC • INSTRUCTION 
jCLEAN UP STACK 

\ 

j BRANCH IF GOOD COMPARE 
I ALL ERRORS TO TRAP TO EMT VECTOR 
I UN I QUE ERROR NUMBER 
I ADDRESS Of ERROR MESSAGE 
I PC WAS INCORRECT 



I COMMON CODE TOR TRAP AND NO 

2${ ST^PS R3 

MOV 4200, R2 

LDfPS R2 

MOV *RECDST,Ri 

I SAVE FRACTIONAL RESULT 
STD ACO.(Rl) 
CMP 42CR5),R3 
BEQ 31 
ERROR 



TRAP 





.WORD 


405 




.WORD 


FPPERR 


31: 


MOV 


R5,R4 




ADD 


♦20, R4 


4$; 


JSR 


R7.0ATVER 




TST 


COUNT 




BEQ 


51 




ERROR 






.WORD 


406 




.WORD 


rpPERR 


j SAVE 


INTEGER 


RESULT 


5$ j 


STD 


ACl.(Rl) 




MOV 


R5.R4 




AOD 


•30, H4 




JSR 


R7.DATVER 




TST 


COUNT 




BEQ 


61 




ERROR 






.WORD 


40/ 




.WORD 


FPPERR 


6$ j 


TST 


H«n. AG 




ONE 


/$ 




JMP 


44CR5) 


/»{ 


5TST 


Rl 




MOV 


44CRS),R4 




CMP 


R4.R1 




BEQ 


8$ 




ERROR 






.WORD 


410 




.WORD 


FPPERR 



j BAD FPS 



02 7 13c* 00C165 000046 



tttij 



JMP 



46(R5> 



ISAVE FPS 

j SET FPP TO DOUBLE 

iPOINT TO RECEIVED DATA TABLE 

I SAVE ACO RESULT 

jVERIFy STATUS 

I BRANCH IF GOOD 

jALL ERRORS TO TRAP TO EMT VECTOR 

l UNIQUE ERROR NUMBER 

, ADDRESS OF ERROR MESSAGE 

jPOINT TO EXPECTED DATA 

iVERIFt DATA 

I BRANCH IF GOOO 

jALL ERRORS TO TRAP TO EMT VECTOR 
tUNlQUE EPROR NUMBER 
i ADDRESS OF ERROR MESSAGE 
j3AD ACO 

I SAVE AC1 RESULT 
I POINT TO FXPECTED 

iVFRIFY DATA 

l 

j BRANCH IF GOOO 

lALL ERRORS TO TRAP TO EMT VECTOR 

lUNIQUE ERROR NUMBER 

jAODRESS OF" ERROR MESSAGE 
I BAD AC I 

»SEE IF NEED TO CMtCK FtC 

iBRANCH IF NEED TO CHECK 

iRETl^N FROM TEST 

jSAVE FEC 

iGET FLC 

(VERIFY FEC 

iBRANCH IF GOOO 

jALL ERRORS TO TRAP TO EMT VECTOR 

JUNIOR ERROR NUMBER 

i ADDRESS OF ERROR MfcSSAUt 

I HAD fEC 
I HE TURN FROM TEST 



GLOBAL ARIAS 
KDJLLA.MAC 



C9 



15- 



M m 



30 



M 



52) 15-MAR 



it l6! ^ST P A8&D l0b 



SEQ 0106 



5535 
5536 

'.53/ 

5538 

5539 
5540 
5541 
554 c ? 
554 3 
5544 
5545 
5546 
554 7 
5548 
5549 
5550 
5551 
555? 
5553 
5554 
5555 
5556 
5557 
5558 
5559 
5560 
5561 
5562 
5563 
5564 
5565 
5566 
5567 
5568 
5569 
5570 
5571 
5572 
55/3 
5574 
5575 
55/6 
5577 
5578 
5579 
5580 
5581 
5582 
5583 
5584 
5585 



■) 



586 
558 7 

5588 
5589 
5590 



02 1 1 36 
027136 



027136 
027136 

027142 
027146 
027154 
027156 
027164 
027166 
027170 

02717? 
027176 
027204 
027206 
027214 
027216 
02 7220 

027222 
027226 
027234 
027236 
027244 
027246 
027250 

027252 

02 7256 
027264 

02 /266 
027274 
027276 
027 300 

027302 
02 7 306 
027314 
027316 
02/324 
027326 
027330 



005267 151642 



004 76 7 
000177 
000001 
000000 
000000 
047557 
047544 

004767 
077577 
177777 
077577 
000000 
007540 
007540 

004 767 
1003/7 
OOOOOO 
100377 
OOOOOO 
007517 
007510 

0O4767 
100000 
OOOOOO 

OOOOOO 
COOOOO 
007757 
007744 

004 767 
125252 
125252 
125252 
OOOOOO 
OOOOOO 
000010 



000170 
OOOOOO 

OOOOOO 



000140 
177777 

177777 



000110 
177777 

177777 



000060 
OOOOOO 

OOOOOO 



000030 
125252 

125252 



027332 000167 000120 



OOOOOO 
OOOOOO 



177777 
OOOOOO 



100000 
OOOOOO 



OOOOOO 
OOOOOO 



125252 
OOOOOO 



H0P15: 
MSf-Ds 



( 1 



j*TEST 67 TEST STCED 

TST67? 

INC ITESTN i INCREMENT TEST NUMBER 



ll/AC-0 



JSP 
.WORD 



ITESTN 

r7,sedsub 

0177,0,0,1 



iDO TEST 
jACO 



.WORD 0.0,0,0 



I RESULT 



WORD 
.WORD 



j2/AC>0, TRUNCATE 



47557 
47544 



j TEST EPS 
I RESULT EPS 



J5R 
.WORD 

.WOPO 

.WORD 
.WORD 
|3/AC<0, ROUNO 
JSR 
.WORD 



P7,SEDSU6 
77577,-1, -1,1 

77577,-1,0,0 

7540 
7540 



jDO TEST 



jACO 
{RESULT 



I TEST EPS 
iRESULT FPS 



R7,SFDSUB 
100377,-1,100000,0 



iDO TEST 



jACO 



.WORD 100377,-1,0,0 iRESULT 



|4/AC"-0 



.WORD 7517 

.WORD 7510 

JSR R7.SEDSUB 

.WORD 100000,0,0,0 



I TEST EPS 
(RESULT EPS 



jDO TEST 
|AC0 



.WORD 0,0,0,0 



(RESULT 



j5/AC<0 



l 



.WORD 
.WOPD 

JSR 
.WCPD 

.WORD 

.WORD 
.WORD 



JMP 



7757 
7 744 

R7.SEDSUB 



l TEST EPS 
j RESULT EPS 



125252,125252,125252,125252 
125252,125252,0,0 



(DO TEST 



jACO 



iRESULT 




10 



» TEST EPS 
iRESULT EPS 



H0P16 »GET OVER SUBROUTINE 

l*X*X«X*X«>.*X*X*X*X*X*X*X*X*X*X*X»X*X*XM*X*X*X*X*X*X*X*X*X 

, •x*x*x*x*x*x*x*x*x*x*x*x*x*x*x*x+x*x*x*x*x*x*x*x*x*x*x*x*x 

I STCFD 

I ACO 

t RESULT 



D9 



027356 
027540 
027346 
027352 
027354 
027356 
027362 
027366 



GLOBAL. AREAS 
KOJUA.MAC 

5591 
559; 

C -5 C ' 
5594 

5595 
55% 
5597 
5593 
5599 
5600 
5601 
5602 
560? 
5604 
5605 
5606 
5607 
5608 
5609 
5610 
56U 
5612 
5613 
5614 
5615 
5616 
5617 
5616 
5519 
5620 
5621 
5622 
5623 
5624 
5625 
5626 
5627 
5628 
5629 
5630 
5631 
5632 
5633 
5634 
5635 
5636 
5637 
5638 
5639 
5640 
5641 
5642 
564 3 
5644 
5645 
5646 



MAO 11 30AC 1052) 
15-MAR-84 15:51 



15 -MAR 84 
T6 7 



16;58 PAGE 107 
TEST STCFD 



SEQ 0107 



027372 
027374 
027400 
027402 
027404 
027406 
027410 

027412 
027414 
027420 
027424 
02 7430 
027432 
027434 
0274 36 



027444 
027444 
027446 
02 7450 

027452 

027456 
027456 



02 7456 
027456 



012605 
012737 
012702 
170102 
172415 
012701 
016502 
170102 



027370 176011 



170203 
016502 
020203 
001403 
104000 
000411 
002013 

010504 
062704 
004 767 
005767 
001403 
104000 
00O412 
002013 



027444 000244 
000200 



001126 
000020 



000022 



000010 
152522 
151410 



027440 000165 000024 



104000 
000413 
002013 

000165 000024 



005267 151322 
027462 005037 001042 



FTii BEFORE EXECUTION 
FPS AFTER EXECUTION 

THERE CAN BE NO TRAPS WITH THE STCFD INSTRUCTION 

♦x*x*x*x*x*x*x*x*x*x*x*x*x*x*x*x*x*x*x*x*x*x*x*x*x*x*x*x*x 

*X*X*X*X4X*X*X*X*X*X*X*X*X*X*X±X+X+X*X+X*X*X+X*X*X*X*X*X*X 



SFUSUB: MOV 

MOV 

MOV 

LOFPS 

LDD 

MOV 

MOV 

LDFPS 



(SP)*,R5 
050I.SOFPVEC 

*200,R2 

R2 

(R5),AC0 

0PECDST.R1 

20CR5),R2 

R2 



40$: STCFD AC0.CR1) 

j INSTRUCTION DIDNT TRAP 

{VERIFY STATUS 

2$i STFPS R3 

MOV 22(R5),R2 

CMP R2.R3 

BEQ 3$ 
ERROR 

.WORD 411 

.WORD FPPERR 



3$; 
4$j 



MOV 

ADO 

JSR 

TST 

BEQ 

ERROR 

.WORD 

.WORD 



R5.R4 
010, R4 
R7.DATVER 

COUNT 
51 

412 

FPPERR 



{BAD FPS 



5$: JMP 24CR5) 
t INSTRUCTION TRAPPED 
50$: 

ERROR 

.WORD 413 

.WORD FPPERR 



l BAD ACO 



I RETURN ADDRESS TO USE AS POINTER 

{REDIRECT TRAP VECTOR 

I SET TO DOUBLE MODE FOR LOAD 

jLOAD FPS 

lLOAD ACO WITH TEST DATA 

{POINT TO RESULT AREA 

{GET TEST FPS 

lLOAD TEST FPS 

{♦TEST INSTRUCTION 



iSAVE FPS 

,GET EXPECTED STATUS 
iVERIFY STATUS 
{BRANCH IF GOOO 

{ALL ERRORS TO TRAP TO EMT VECTOR 
{UNIQUE ERROR NUMBER 
{ADDRESS OF ERROR MESSAGE 

{POINT TO EXPECTED DATA 

{VERIFY DATA 

{BRANCH IF GOOO 

{ALL ERRORS TO TRAP TO EMT VECTOR 

{UNIQUE ERROR NUMBER 

{ADDRESS OF ERROR MESSAGE 

{RETURN FROM TEST 



JMP 



24(R5) 



{ALL ERRORS TO TRAP TO EMT VECTOR 
{UNIQUE ERROR NUMBER 
{ADDRESS OF ERROR MESSAGE 

{INSTRUCTION WASNT SUPPOSE TO TRAP 

{RETURN FROM TEST 



HOP 16: 



MSDF: 

i*TF.ST 70 TEST STCDK 

TST70: 

INC STESTN i INCREMENT TEST NUMBER 

ll/AOO 

CLR BWLAli {NO INTERRUPT 



E9 



GLOBAL AREAS 
KDJ11A.MAC 



MACU1 30AC1052) 
15-MAR-84 15:51 



15 -MAR -64 

T70 



16 5 56 PAGE 108 
TEST STCDF 



SEQ 0108 



564 7 
5648 
5649 
5650 
5651 
5652 
5653 
5654 
5655 
5656 
5657 
5658 
5659 
5660 
5661 
5662 
5663 
5664 
5665 
5666 
5667 
5668 
5669 
5670 
5671 
5672 
5675 
5674 
5675 
5676 
5677 
5678 
5679 
5680 
5681 
5682 
5683 
5684 
5685 
5686 
5687 
5688 
5689 
5690 
5691 
5692 
5693 
5694 
5695 
5696 
5697 
5698 
5699 
5700 
5701 
5702 



027466 
027472 
027500 
027502 
027506 
027510 

027512 
027516 
027522 
027530 
027532 
027536 
027540 

027542 
027546 
027552 
027560 
027562 
027566 
027570 

027572 
027600 
027604 
027612 
027614 
027620 
027622 

027624 
027630 
027634 
027642 
027644 
027650 
027652 

027654 
027662 
027666 
027674 
027676 
027702 
027704 



004767 
000177 
OOOOOO 
000000 
000200 
000204 

005037 
004767 
100000 
000100 
OOOOOO 
007777 
007744 

005037 
004 767 
055555 
177777 
055555 
000240 
000240 

012737 
004 767 
077777 
OOOOOO 
OOOOOO 
001200 
101206 

005037 
004 767 
125252 
125252 
125252 
007700 
007710 

012 737 

004 767 
077777 
OOOOOO 
OOOOOO 
006700 
006706 



000220 
OOOOOO 

OOOOOO 



001042 
000170 
000300 

OOOOOO 



001042 
000140 
055555 

055555 



00000 1 
000106 
177777 

OOOOOO 



001042 
000056 
125252 

125253 



000002 
000024 
177777 

OOOOOO 



027706 000167 000232 



OOOOOO 



(2/AC--0 



000200 



JSR 
.WORD 

.WORD 
.WORD 
.WORD 

CLR 
JSR 
.WORD 



R7,SDFSUB 
177,0,0,0 

0,0 
200 
204 



} D0 TEST 
jACO 



jRESULT 
i TEST FPS 
{RESULT FPS 



{NO 



SOFIAG 

R7,SDFSU6 

100000,300,200,100 



INTERRUPT 

I DO TEST 



{ACO 



177777 



.WORO 0,0 

.WORD 7777 

.WORD 7 744 
j3/AC>0, TRUNCATE 

CLR QfrFLAG 

JSR R7,SDFSU6 

.WORD 55555,55555,-1,-1 



jRESULT 

j TEST FPS 

jRESULT FPS 

I NO INTERRUPT 

jDO TEST 



I ACO 



001042 
100000 



.WORD 55555,55555 {RESULT 

.WORD 240 ; TEST FPS 

.WORD 240 {RESULT FPS 

{4/AC<0, ROUND TO UNDEFINED VARIABLE 

MOV Ol.StfFLAG {INTERRUPT 

JSR R7.SDFSU0 {DO TEST 

.WORD 77777,-1,100000,0 } ACO 



125252 



001042 
177777 



.WORD 
.WORD 
WORD 
|5/AC<0, 'ROUND 
CLR 
JSR 
.WORD 

.WORD 
.WORD 
.WORD 
{6/ROUND TO UV 
MOV 
JSR 
.WORD 



0,0 

1200 

101206 



{RESULT 

{ TEST FPS 

{RESULT FPS 



BfrfLAG {NO INTERRUPT 

R7.S0FSU6 {DO TEST 

125252 , 125252 , 125252 , 125252 



{ACO 



125252. 12525i 

7700 

7710 

TRAPS DISABLED 

02,a$FLAG 

R7,SDFSUB 

77777,-1,-1,0 



. WORD , 
.WORD 6700 
.WORD 6706 



JMP 



HOP 17 



{RESULT 
l TEST FPS 
{RESULT FPS 

{INTERRUPT 
{DO (EST 
{ACO 

{RESULT 

{ TEST FPS 

{RESULT FPS 



{GET OVER SUBROUTINE 



i 
J 
t *X»X*X*X*X*X*X*X*X+X*X*X*X*X*X*X*X*X*XkX*X*X*X*X»X+X*X*X*X 

{ *x*x*x*x*x*x*x*x*x+x*x+x*x*x+x*x*x*x*x*x*x*x*x*x*x*x*x*x*x 

;STCDF 

{ ACO 

j RESULT 



F9 



027712 
027714 
027722 
027726 
027730 
027732 
027736 
027742 

027744 
027746 
027750 



027752 
027760 
027762 
027764 
027766 



GLOBAL. AREAS 
KDJ11A.MAC 



5703 
5704 
5705 
5706 
5707 
5708 
5709 
571.0 
5711 
5712 
5713 
5714 
5715 
5716 
5717 
5718 
5719 
5720 
5721 
5722 
5723 
5724 
5725 
5726 
5727 
5728 
5729 
5730 
5731 
5732 
5733 
5734 
5735 
5736 
5737 
5738 
5739 
5740 
5741 
5742 
5743 
5744 
5745 
5746 
5747 
5748 
5749 
5750 
5751 
5752 
5/53 
5754 
5755 
5756 
5757 
5758 



MACUl 30AC1052) 
15-MAR-84 15:51 



027774 
030002 
030004 
030006 
030010 

030012 
030016 
030020 
030022 
030026 
030030 
030032 
030034 



030036 
030040 
030C44 
030046 
030050 
030052 
030054 



012605 

012737 
012702 
170102 
172415 
012701 
016502 
170102 

176011 
17032" 7 
000000 



032737 
001426 
104000 
000414 
002013 



027770 000167 



15-MAR-84 
T70 



16 {58 PAGE 109 
TEST STCDF 



SEQ 0109 



02 7 774 000244 
000200 



001126 
000014 



000001 001042 



000020 
027746 



032737 
001005 
104000 
00O415 
002013 

000167 
012604 
005726 
022704 
001403 
104000 
00O416 
002013 



170203 

016502 000016 

020203 

001403 

104000 

000417 

002013 



000042 

000001 001042 



FPS BEFORE EXECUTION 
FPS AFTER EXECUTION 



I A TRAP CAN ONLY OCCUR IF ROUNDING CAUSES 

,*x*x*x*x*x*x*x*x*x*x+x*x*x*»x*x*x*x+x*x 
j±x+x*x*x*x*x*x*x*x*x*x*x*x+x+x*x+x*x*x*x 



SDFSUB: 



l 

40* 

1$: 



MOV (5P)»,R5 

MOV 050$,8*FPVEC 

MOV 0200, R2 

LDFPS R2 

LDD CR5),AC0 

MOV ORECDST.Rl 

MOV 14(R5),R2 

LDFPS R2 

STCDF ACO.CRl) 

STST (PC)* 

. WORD 



; 



INSTRUCTION OIDNT TRAP 



BIT 

BEQ 

ERROR 

.WORD 

.WORD 

JMP 



Ol.SOFLAG 
2$ 

414 
FPPERR 

2* 



{INSTRUCT 



OVERFLOW 

*x*x*x*x*x+x+x*x+x 
*x*x*x*x*x*x*x*x*x 

I RETURN ADDRESS TO USE AS POINTER 

{REDIRECT TRAP VECTOR 

I SET TO DOUBLE MODE FOR LOAD 

{LOAD FPS 

{LOAD ACO WITH TEST DATA 

{POINT TO RESULT AREA 

{GET TEST FPS 

{LOAD TEST FPS 

{♦TEST INSTRUCTION 

{WAIT FOR POSSIBLE FPA TRAP. 

{STORE STATUS HERE. 



{VERIFY A NO TRAP CONDITION 
{BRANCH IF GOOD 

jALL ERRORS TO TRAP TO EMI VECTOR 
{UNIQUE ERROR NUMBER 
{ADDRESS OF ERROR MESSAGE 

ION SHOULD HAVE TRAPPED 

REJOIN CODE 



{INSTRUCTION TRAPPED 



50$: 


BIT 


*1,Q*FLAG 




BNE 


51$ 




ERROR 






.WORD 


415 




.WORD 


FPPERR 




JMP 


2$ 


51$: 


MOV 


(SP)*.R4 




TST 


CSP)* 




CMP 


01*. R4 




BEQ 


2* 




ERROR 






.WORD 


416 




.WORD 


FPPERR 


{'common 


CODE FOR TRAP AND 


{VERIFY 


STATUS 




2$: 


STFPS 


R3 




MOV 


16(R5).R2 




CMP 


R2,R3 




BEQ 


3$ 




ERROR 






.WORD 


417 




.WORD 


FPPERR 



{SEE IF EXPECTING A TRAP 
{BRANCH IF EXPECTING A TRAP 
{ALL ERRORS TO TRAP TO EMT VECTOR 
{UNIQUE ERROQ NUMBER 
{ADDRESS OF ERROR MESSAGE 
{INSTRUCTION WASNT SUPPOSE TO TRAP 
{REJOIN CODE 

{SEE IF PC ■ INSTRUCTION 
{CLEAN UP STACK 

\ 

{BRANCH IF GOOD COMPARE 
{ALL ERRORS TO TRAP TO EMT VECTOR 
{UNIQUE ERROR Nl.*1GER 
{ADDRESS OF ERROR MESSAGE 
|PC WAS INCORRECT 



NO TRAP 



,BAD FPS 



{SAVE FPS 

{GET EXPECTED STATUS 
jVERIFY STATUS 
{BRANCH IF GOOD 

{ALL ERRORS TO TRAP TO EMT VECTOR 
{UNIQUE ERROR NUMBER 
{ADDRESS OF ERROR MESSAGE 



G9 



GLOBAL AREAS 
KDJUA.MAC 



MACY11 30AU052) 
15-MAR-84 15:51 



5759 

5760 

5761 

5762 

5763 

5764 

5765 

5766 

5767 

5768 

5769 

5770 

5771 

5772 

5773 

5774 

5775 

5776 

5777 

5778 

5779 

5780 

5781 

5782 

5783 

5784 

5785 

5786 

5787 

5788 

5789 

5790 

5791 

5792 

5793 

5794 

5795 

5796 

5797 

5798 

5799 

5800 

5801 

5802 

5803 

5804 

5805 

5806 

580 7 

5808 

5809 

5810 

5811 

5812 

581? 

5814 



030056 
030060 
030064 
030070 
030074 
030076 
030100 
030102 

030104 
030110 
030112 

030116 
030122 
030124 
030130 
030132 
0*0134 
030136 



030144 
030144 
030150 
030154 
030156 
030160 
030162 
030164 
030170 
030172 
030174 
030176 

030200 
030204 
030206 
030210 
030212 

030214 



030214 



030214 
030214 



010504 
062704 
004767 
005767 
001403 
104000 
000420 
002013 

005737 
001002 
000165 

C12704 
170314 
021427 
001403 
104000 
000421 
002013 



000010 
152040 
150744 



15-MAR-84 
T70 

3$: 

4$: 



16;58 PAGE 110 
TEST STCDF 



SEQ OHO 



001042 
000020 
001106 
000010 



030140 000165 000020 

030144 
030144 



005267 150634 

012701 040000 

170101 

176006 

170202 

170303 

022702 140000 
001403 
104000 
000422 
002013 

022703 000002 
001403 
104000 
000423 
002013 



MOV 

ADD 

JSR 

TST 

BEQ 

ERROR 

.WORD 

.WORD 



5$; 



TST 

3NE 

JMP 

I VERIFY FEC 



7$ 



8$ } 

H0P1 
MSFD 
j ;♦* 

5*TE 

; j** 

TST7 



MOV 

STST 

CMP 

BEQ 

ERROR 

.WORD 

.WORD 

JMP 



R5.R4 

010.R4 

R7.DATVFR 

COUNT 

5$ 

420 
FPPERR 

BOFLAG 

7* 

20CR5) 

0RECFEC.R4 
CR4) 

(R4),010 
8* 

421 
FPPERR 

20CR5) 



{BAD ACO 



j POINT TO EXPECTED DATA 
{VERIFY DATA 

{BRANCH IF GOOD 

lALL ERRORS TO TRAP TO EMT VECTOR 

{UNIQUE ERROR NUMBER 

{ADDRESS OF ERROR MESSAGE 

,SEE IF NEED TG CHECK FEC 
{BRANCH IF NEED TO CHECK 
{RETURN FROM TEST 



{POINT TO FEC AREA 
jSAVE FEC 

{VERIFY FEC FOR OVERFLOW 
{BRANCH IF GOOD 

{ALL ERRORS TO TRAP TO EMT VECTOR 
{UNIQUE ERROR NUMBER 
{ADDRESS QF ERROR MESSAGE 
;BAD FEC 
{RETURN FROM TEST 



7: 

I: 
** 
ST 
* + 

1: 



*********************************************************** 

71 TEST STCFD - USING ILLEGAL ACCUMULATOR 
*********** ************* *********************************** 



1$ 



INC 

MOV 

LDFPS 

STCFD 

STFPS 

STST 

CMP 

BEQ 

ERROR 

.WORD 

.WORD 

CMP 

BEQ 

ERROR 

.WORD 

.WORD 



$TESTN 

04 0000, Rl 

Rl 

AC0.AC6 

R2 

R3 

0140000, R2 

It 

422 

FPPERR 

02, R3 
2$ 

423 
FPPERR 



2$ 



{INCREMENT TEST NUMBER 
{DISABLE INTERRUPTS 

;*TEST ILLEGAL INSTRUCTION 

{SAVE STATUS 

{SAVE FEC 

{VERIFY FER SET 

{BRANCH IF ERROR RECEIVED 

jALL ERRORS TO TRAP TO EMT VECTOR 

{UNIQUE ERROR NLWBER 

{ADDRESS OF ERROR MESSAGE 
{FER BIT NOT SET ON ILLEGAL INST. 

{VERIFY FEC ■ FLOATING OPCODE ERROR 

{BRANCH IF GOOD 

{ALL ERRORS TO TRAP TO F.MT VECTOR 

{UNIQUE ERROR NUMBER 

{ADDRESS OF ERROR MESSAGE 
{FEC INCORRECT 



005267 150564 



MCLRD: 

• • ******************************** ******************************* 

{♦TEST 72 TEST CLRD 
jj*************************************************************** 

TST72: 

INC iTESTN {INCREMENT TEST NUMBER 



H9 



GLOBAL AREAS 

KDJUA.MAC 



MACU1 30AU052) 
15-MAR-84 15:51 



15-MAR84 
T72 



16; 58 PAGE HI 



TEST CLRD 



SEQ 0111 



5815 

5816 

5817 

5818 

5819 

5820 

5821 

5822 

5823 

5824 

5825 

5826 

5827 

5828 

5829 

5830 

5831 

5832 

5833 

5834 

5835 

5836 

5837 

5838 

5839 

5840 

5841 

5842 

584 3 

5844 

5845 

5846 

534 7 

5848 

5849 

5850 

5851 

5852 

5853 

5C54 

5855 

5856 

5857 

5858 

5859 

5860 

5061 

5862 

5863 

5864 

5865 

5866 

5867 

5868 

5869 

5870 



030220 
030224 
030230 
030232 
030234 
030240 
030242 
030244 
030250 
030254 
030260 
030262 
030264 
030266 

030270 
030272 
030276 
030300 
030302 
030304 

030306 



030306 



030306 
030306 
030312 
030316 
030320 
030322 
030324 
030326 
030332 
030334 
030336 
030340 

030342 
030346 
030350 
030352 
030354 

030356 



030356 



030356 



012701 
012704 
170104 
172411 
012701 
174011 
170411 
012704 
004 767 
00576 7 
001403 
104000 
000424 
002013 

170202 
020227 
001403 
10400C 
000425 
002013 



005267 
012704 
170104 
170406 
170203 
170305 
022703 
001403 
104000 
000426 
002013 

022705 
001403 
104000 
000427 
002013 



001726 
000200 



001126 



001256 
151672 
150560 



000204 



150472 
040200 



140200 



000002 



1$ 



MOV 

MOV 

LDFPS 

LDD 

MOV 

STD 

OJH) 

MOV 

JSR 

TST 

BEQ 

ERROR 

.WORD 

.UORD 

STFPS 

CMP 

BEQ 

ERROR 

.WORD 

.WORD 



OTAB47.P1 
♦200 , R4 
R4 
CRD.ACO 

0PECDST.R1 

hlO,(R1) 

(Rl) 

4TAB6.R4 

R7,DATVER 

COUNT 

1$ 

424 
FPPERR 

R2 

R2.0204 

2* 

425 
FPPERR 



POINT TO DATA 

r -TA1US TO DOUBLE 



SET FPP b 



2$ 



POINT TO DATA BUFFER 
STORE GARBAGE 
CLEAR DATA BUFFER 
VERIFY BUFFER -0 



BRANCH I RECDST - 

ALL ERRORS TO TRAP TO EMT VECTOR 

UNIQUE ERROR NUMBER 

ADDRESS OF ERROR MESSAGE 
jRECDST NOT CLEARED 

SAVE STATUS 

VERIFY STATUS 

BRANCH IF GOOD 

ALL ERRORS TO TRAP TO EMT VECTOR 

UNIQUE ERROR NUMBER 

ADDRESS OF ERROR MESSAGE 
iBAD STATUS 



MCLRIt 






• •+ + «** + ♦**«*♦************ 


i*TEST 


73 


TEST CLRD, 


j ;+****+****************** 


TST73: 








INC 


ITESTN 




MOV 


040200, R4 




LDFPS 


R4 




CLRD 


R6 




STFPS 


R3 




STST 


R5 




CMP 


*I40200,R3 




BEQ 


1* 




ERROR 






.WORD 


426 




.WORD 


FPPERR 


li: 


CMP 


«2, R5 




BEQ 


?.% 




ERROR 






.WORD 


42 7 




.WORD 


FPPERR 



2$ 



INCREMENT TEST NUMBER 

{DISABLE INTERRUPTS 

jLOAD STATUS 

{♦TEST INSTRUCTION WITH ILLEGAL ACC 

j SAVE STATUS 

j SAVE r EC 

{VERIFY ERROR 

, BRANCH IF FER SET 

{ALL ERRORS TO TRAP TO EMT VECTOR 

{UNIQUE ERROR NUMBER 

{ADDRESS OF ERROfl MESSAGE 
{ERROR IN FPS 

{VERIFY FEC -2 OPCODE ERROR 
{BRANCH IF GOOD 

{ALL ERRORS TO TRAP TO F.MT VECTOR 

{UNIQUE ERROR NUMBER 

{ADDRESS OF ERROR MESSAGE 

{BAD FEC 



MLS1: 

{♦TEST 74 TEST IDFPS, STFPS MODE 1 

TST74; 



19 



GLOBAL 


ARFAS 


MACU1 


30AC1052) 15 -Mi 


KDJ11A. 


MAC 15-MAR-84 


15:51 


58 a 


030356 


005267 


150422 


5872 


030362 


012704 


001136 


5873 


030366 


012714 


147757 


5874 


030372 


012701 


001116 


58 75 


030376 


012737 


030462 000244 


5876 


030404 


170U4 




5377 


030406 


170211 




5878 


030410 


020427 


001136 


5879 


030414 


001403 




5880 


030416 


104000 




5881 


030420 


000430 




5882 


030422 


002013 




5885 








5884 


030424 


020127 


001116 


5885 


030430 


001403 




5886 


030432 


104000 




588 7 


030434 


000431 




5888 


030436 


002013 




5889 








5890 


030440 


023727 


001116 147757 


5891 


030446 


001412 




5892 


030450 


104000 




5893 


030452 


000432 




5894 


030454 


002013 




5895 








5896 


03O456 


000167 


000012 


5897 








5893 


030462 


012600 




5899 


030464 


012605 




5900 


030466 


104000 




5901 


0304 70 


000433 




5902 


0304 72 


002013 




5903 








5904 


030474 






5905 








5906 








5907 


030474 






5908 








5909 








5910 








5911 


030474 






5912 


030474 


005267 


150304 


5913 


030500 


012704 


C01136 


5914 


030504 


012714 


145557 


5915 


030510 


012701 


001116 


5916 


030514 


012737 


030600 000244 


5917 


030522 


170124 




5918 


030524 


170221 




5919 


030526 


02042 7 


001140 


5920 


030552 


001403 




5921 


030534 


104000 




5922 


0305i6 


0004 34 




592 3 


030540 


002013 




5924 








5925 


030542 


020127 


001120 


5926 


030546 


001403 





1-84 

T74 



1$ 



2$ 



58 PA 
TEST L 


DFPS, STFPS MODE 


INC 


JTESTN 


MOV 


0TSTLOC.R4 


MOV 


0147757, CR4) 


MOV 


#RECST,R1 


MOV 


*10$,SOFPVEC 


LDFPS 


CR4) 


STFPS 


CRn 


CMP 


R4.OTSTL0C 


BEQ 


1$ 


ERROR 




.WORD 


430 


. WORD 


FPPERR 


CMP 


Rl,«RfcCST 


BEQ 


2* 


ERROR 




.WORD 


431 


.WORD 


FPPERR 


CMP 


80RECST, $147757 


BEQ 


3$ 


ERROR 




.WORD 


432 


.WORD 


FPPERR 



SEQ 0112 



{BAD Rl 



{INCREMENT TEST NUMBER 

I POINT R4 TO RAM 

{SETUP EXPECTED STATUS 

{SET BUFFER FOR RECEIVED STATUS 

{SETUP TRAP VECTOR 

j*TEST INSTRUCTION 

{♦TEST INSTRUCTION 

{VERIFY R4 

{BRANCH IF GOOD 

{ALL ERRORS TO TRAP TO EMT VECTOR 

{UNIQUE ERROR NUMBER 

j ADDRESS OF ERROR MESSAGE 

{VERIFY Rl 

{BRANCH IF GOOD 

;ALL ERRORS TO TRAP TO EMT VECTOR 

{UNIQUE ERROR NUMBER 

{ADDRESS OF ERROR MESSAGE 



JMP 3$ 

{UNEXPECTED TRAP 

10$; MOV (SP)*,RO 

MOV (SP)»,R5 

ERROR 

.WORD 433 

.WORD FPPERR 

Six 



{VERIFY STATUS 
{BRANCH F GOOD 

{ALL ERRORS TO TRAP TO EMT VECTOR 
{UNIQUE ERROR NUMGER 
{ADDRESS OF ERROR MESSAGE 
{BAD STATUS\ 

{GET OVER TRAP 

{SAVE PC 

;SAVE PS 
{ALL ERRORS TO TRAP TO EMT VECTOR 
{UNIQUE ERROR NUMBER 
{ADDRESS OF ERROR MESSAGE 
{UNEXPECTED TRAP 



ML52: 
{ {♦*♦♦ 
{♦TEST 
{ {♦**♦ 
TST75: 



75 TEST LDFPS, STFPS MODE 2 



IS 



INC *TESTN 

MOV 0TSTL0C.R4 

MOV 0145557, (R4) 

MOV 0RECST.R1 

MOV 01O$,80FPVEC 

LDFPS (R4)» 

STFPS (Rl)* 

CMP R4,0TSTLOC»2 

BEQ H 

ERROR 

.WORD 434 

.WORD FPPERR 

CMP R1,0R£CST»2 

BEQ 2* 



{INCREMENT TEST NUMBER 

{POINT R4 TO RAM 

{SETUP EXPECTED STATUS 

; SET BUFFER FOR RECEIVED STATUS 

{SETUP TRAP VECTOR 

{♦TEST INSTRUCTION 

{♦TEST INSTRUCTION 

{VERIFY R4 

i BRANCH IF GOOD 

{ALL ERRORS TO TRAP TO EMT VECTOR 

{UNIQUE ERROR NUMBER 

j ADDRESS OF ERROR MESSAGE 

{VERIFY Rl 
{BRANCH IF GOOD 



J9 



GLOBAL ARFAS 
KOJ11A.MAC 



5927 

5928 

5929 

5930 

5931 

5932 

5933 

5934 

5935 

5936 

5937 

5938 

5939 

5940 

5941 

5942 

594 3 

5944 

5945 

5946 

594 7 

5948 

5949 

5950 

5951 

5952 

5953 

5954 

5955 

5956 

5957 

5958 

5959 

5960 

5961 

5962 

5963 

5964 

5965 

5966 

596 7 

5968 

5969 

5970 

5971 

5972 

5973 

5974 

5975 

5976 

5977 

5978 

5979 

5980 

598 1 

5982 



030550 
030552 
030554 

030556 
030564 
030566 
030570 
030572 



HACY11 30AC1052) 
15-MAR-84 15:51 

104000 
000435 
002013 



15 -MAR -84 
T75 



16}58 PAGE 113 

TEST LDFPS, S1FPS MODE 2 



SEQ 0113 



023727 
001412 
104000 
000436 
002013 



001116 145557 2$t 



030600 
030602 
030604 
030606 
030610 

030612 



030612 



030612 
030612 
030616 
030622 
030630 
030636 
030642 
030650 
030656 
030660 
030662 
030666 
030670 
030672 
030674 

030676 
030702 
030704 
030706 
030710 

030712 
030720 
030722 
030724 
030726 

030730 

030734 



012600 
012605 
104000 
000437 
002013 



005267 
012704 
012737 
012737 
012701 
012737 
012737 
170134 
170231 
020427 
001403 
104000 
000440 
002013 

020127 
001403 
104000 
000441 
002013 

023727 
001412 
104000 
000442 
002013 

000167 

012600 



ERROR 
.WORD 
.WORD 

CMP 

BEQ 

ERROR 

.WORD 

.WORD 



435 
TPPERR 

3*RECST t #145557 
3* 

436 
FPPERR 



030574 000167 000012 



JMP 3$ 

; UNEXPECTED TRAP 



10$ i 



MOV 

MOV 

ERROR 

.WORD 

.WORD 



CSP)* t RO 
C3P)» # R5 

437 
FPPERR 



3*: 



I ALL ERRORS TO TRAP TO EMT VECTOR 

j UNIQUE ERROR NUMBER 

j ADDRESS OF ERROR MESSAGE 
j BAD Rl 

; VERIFY STATUS 

j BRANCH F GOOD 

j ALL ERRORS TO TRAP TO EMT VECTOR 

; UNIQUE ERROR NUMBER 

; ADDRESS OF ERROR MESSAGE 
I BAD STATUS\ 

j GET OVER TRAP 

;SAVE PC 

{SAVE PS 
tALL ERRORS TO TRAP TO EMT VECTOR 
j UNIQUE ERROR NUMBER 
j ADDRESS OF ERROR MESSAGE 
I UNEXPECTED TRAP 



150166 
001336 
001142 
147501 
001146 
001116 
030734 



001140 



001136 
001142 

001146 
000214 



MLS3: 

; ; ************* 

;*TEST /6 

; J ************* 

TST76: 

INC 

MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

LDFPS 

STFPS 

CMP 

BEQ 

ERROR 

.WORD 

.WORD 



001150 



1$ 



001116 147501 2* 



CMP 
BEQ 
ERROR 

.WORD 
.WORD 

CMP 

BEQ 

ERROR 

.WORD 

.WORD 



************************ 
TEST LDFPS, STFPS MODE 

********************6**A 

ITESTN 

0TSTl.0C.R4 

#TSTL0Cf4,30TSTL0C 

*147501>a*TSTL0C*4 

4TSTL0O10.R1 

0RECST,S4TSTL0Cfl0 

<no$ f a*FPVEC 

SCR4)* 

a(fli)* 

R4,0TSTL0C*2 
1* 

440 
FPPERR 

I 
R1.#TSTL0C*12 
2% 



000012 



441 
FPPERR 

S0RECST, 0147501 
3$ 

442 

FPPERR 

3$ 



iBAD Rl 



************************** 

3 
************************** 



INCREMENT TEST NUMBER 

POINT R4 TO RAM 

TSTLOC- DEFERRED ADDRESS 

SETUP EXPECTED STATUS 

Rl POINTS TO TSTLOC ♦ 10 

SET DEFERRED BUFFER FOR RECEIVED STATUS 

SETUP RAP VECTOR 

♦TEST INSTRUCTION 

*TEST INSTRUCTION 

VERIFY R4 

BRANCH IF GOOD 

ALL ERRORS TO TRAP TO EMT VECTOR 

UNIQUE ERROR NUMBER 

ADDRESS OF ERROR MESSAGE 

VERIFY Rl 

BRANCH IF GOOD 

ALL ERRORS TO TRAP TO EMT VECTOR 

UNIQUE ERROR NUMBER 

ADDRESS OF ERROR MESSAGE 



JMP 

j UNEXPECTED TRAP 
10$; MOV (SP)*,RO 



VERIFY STATUS 
BRANCH F GOOD 

ALL ERRORS TO TRAP TO EMT VECTOR 
UNIQUE ERROR NUM8ER 
ADDRESS OF ERROR MESSAGE 
;BAD STATUS\ 

j GET OVER TRAP 

j SAVE PC 



!<9 



Gl.OBAt. 


AREAS 


MAC 111 


30AC105; 


KDJ11A. 


MAC 15-MAR-84 


15;51 


5983 


030736 


012605 




5984 


030740 


104000 




5985 


030742 


000443 




5966 


030744 


002013 




5987 








5988 


030746 






5989 








5990 








5991 


030746 






599? 








5995 








5994 








5995 


030746 






5996 


030746 


005267 


150052 


5997 


030752 


012704 


001140 


5998 


030756 


012737 


147757 


5999 


030764 


012701 


001120 


6000 


030770 


012737 


031054 


6001 


030776 


170144 




6002 


031000 


170241 




6005 


031002 


020427 


001136 


6004 


031006 


001403 




6005 


031010 


104000 




6006 


031012 


00O444 




6007 


031014 


002013 




6008 








6009 


031016 


020127 


001116 


6010 


031022 


001403 




6011 


031024 


104000 




6012 


031026 


000445 




6015 


031030 


002015 




6014 








6015 


031032 


023727 


001116 


6016 


031040 


001412 




6017 


031042 


104000 




6018 


051044 


000446 




6019 


031046 


002013 




6020 








6021 


031050 


000167 


000012 


6022 








6023 


031054 


012600 




6024 


031056 


012605 




6025 


031060 


104000 




6026 


031062 


00044 7 




6027 


031064 


002O13 




6028 








6029 


031066 






6030 








6031 








6032 


031066 






6035 








6034 








60.55 








6056 


031066 






6057 


031066 


005267 


14 7/12 


6038 


031072 


012 704 


001140 



15 -MAR -84 
T76 



16:50 PAGE 114 

TEST LDFPS, STFPS MODE 3 



SEU 0114 



MOV 
ERROR 
.WORD 
.WORD 



CSP)*,R5 

443 
FPPERR 



{ALL 



j SAVE PS 

ERRORS TO TRAP 



3*5 



JMLL tKHUKb IU IMMK TO EMT VECTOR 
I UNIQUE ERROR NUMBER 
{ADDRESS OF ERROR MESSAGE 
[UNEXPECTED TRAP 



001136 
000244 



MLG4: 

I . ************ 

{♦TEST 77 

. ; ************ 

TST77: 

INC 

MOV 

MOV 

MOV 

MOV 

LDFPS 

STFPS 

CMP 

BEQ 

ERROR 

.WORD 

.WORD 



1$: 



2$: 



CMP 

BEQ 

ERROR 

.WORD 

.WORD 

CMP 
BEQ 

ERROR 
.UORD 
.WORD 



;UNE 
1055 



JMP 

XPECTED TRAP 
MOV 
MOV 
ERROR 
.WORD 
.WORD 



******************* 

TEST LDFPS, STFPS 

a****************** 

JTESTN 

*TSTL0C*2,R4 

$147757, QOTSTLOC 

*RECST*2,R1 

*10*,S4FPVEC 

-CR4) 

-(Rl) 

R4.4TSTL0C 

1* 

444 
FPPERR 

Rl.ORECST 
2$ 

445 

FPPERR 

30RECST, 0147757 
3$ 

446 

FPPERR 

3$ 



*******************************.* 

MODE 4 
******************************** 

i INCREMENT TEST NUMBER 

{POINT R4 TO RAM 

jTSTLOC- STATUS ADDRESS 

{SET BUFFER FOR RECEIVED STATUS 

{SETUP TRAP VECTOR 

i>TEST INSTRUCTION 

{♦test instruct:;.' * 

{VERIFY R4 

{BRANCH IF GOOD 

{ALL ERRORS TO TRAP TO EMT VECTOR 

{UNIQUE ERROR NUMBER 

{ADDRESS OF ERROR MESSAGE 

{VERIFY Rl 

{BRANCH IF GOOD 

{ALL. ERRORS TO TRAP TO EMT VECTOR 

{UNIQUE ERROR NUMBER 

{ADDRESS OF ERROR MESSAGE 



CSP)*,RO 
(SP)*,R5 

447 
FPPERR 



3$: 



BAD Rl 

{VERIFY STATUS 
{BRANCH F GOOD 

{ALL ERRORS TO TRAP TO EMT VECTOR 
; UNIQUE ERROR NUMBER 
;ADDRESS OF ERROR MESSAGE 
BAD STATUSS 

{GET OVER TRAP 

{SAVE PC 

{SAVE PS 
ALL ERRORS TO TRAP TO EMT VECTOR 
UNIQUE ERROR NUMBER 
ADDRESS OF ERROR MESSAGE 
UNEXPECTED TRAP 



MLS5: 

; ;*************************************************************** 

{♦TEST 100 TEST LDFPS, STFPS MODE 5 

{•*************************************************************** 

TSUOOi 

INC JTESTN {INCREMENT TEST NUMBER 

MOV 4TSTL0C*2,R4 {POINT R4 TO RAM 



L 



9 



GLOBAL AREAS 
KDJ11A.MAC 



MACY11 30AC1052^ 
15-MAR-84 15:51 



6039 

6040 

6041 

6042 

6043 

'044 

C045 

60<6 

6047 

6048 

6049 

6050 

6051 

6052 

6053 

6054 

6055 

6056 

6057 

6058 

6059 

6060 

6061 

6062 

6063 

6064 

6065 

6066 

6067 

6068 

6069 

6070 

6071 

6072 

6073 

6074 

6075 

6076 

6077 

60/8 

6079 

6080 

6081 

6082 

6083 

6084 

6085 

6086 

6087 

6088 

6089 

6090 

6091 

6092 

6093 

6094 



031076 
031104 
031112 
031116 
031124 
031132 
031134 
031136 
031142 
031144 
031146 
031150 

033152 

031156 
031160 
031162 

031164 

031166 
031174 
031176 
031200 
031202 



012737 
012737 
012701 

012737 
012737 
170154 

1/0251 
020427 
001403 
104000 
000450 
002013 

020127 
001403 
104000 
000451 
002013 

023727 
001412 
104000 
000452 

00201? 



031210 
031212 
031214 
031216 
031220 

031222 



031222 



031222 
031222 
031226 
031232 
031240 
031244 
031252 
031256 
031262 
031266 
031270 
0312/2 
0312 '4 

031276 
031302 



012600 
012605 
104000 
0004T 3 
002013 



001142 
147501 
001150 
001116 
031210 



001136 



001146 



031204 000167 000012 



005267 
012704 
012737 
012701 
012737 
170164 
170261 
020427 
001403 
104000 
000454 
002013 



020127 001246 



147556 
001136 
140001 
001246 
031334 
000004 
177700 
001136 



15-MAR-84 
T100 

001136 
001142 



16} 58 PAGE 1.15 

TEST LDFPS, STFPS MODE 5 



SEQ 0115 



001146 
000244 



1$ 



001116 147501 2$ 



MOV 

MOV 

MOV 

MOV 

MOV 

LDFPS 

STFPS 

CMP 

BEQ 

ERROR 

.WORD 

.WORD 

CMP 
BEQ 
ERROR 

.WORD 
.WORD 

CMP 
REQ 

£RROR 
.WORD 
.WORD 



*TSTL0C + 4,SXM"STL0C 

4147501, E4TSTL0C44 

0TSTL0C*12,R1 

ORECST,aMSTL0C»10 

010$,5)0FPVEC 

S-CR4) 

8-CR1) 

R4 t £TSTL0C 

1* 

450 
FPPERR 

R1,OTSTLOC*10 
2* 



451 

FPPERR 

SORECST.0147501 
3$ 

452 
FPPERR 

3$ 



{BAD Rl 



jTSTLOC* OEFERRED ADDRESS 

> SETUP EXPECTED STATUS 

|R1 POINTS TO 412 

j SET DEFERRED BUFFER FOR RECEIVED STATUS 

jSETUP TRAP VECTOR 

t*TEST INSTRUCTION 

{♦TEST INSTRUCTION 

{VERIFY R4 

{BRANCH IF GOOD 

{ALL ERRORS TO TRAP TO EMT VECTOR 

{UNIQUE ERROR NUMBER 

{ADDRESS OF ERROR MESSAGE 

{VERIFY Rl 

{BRANCH IF GOOD 

{ALL ERRORS TO TRAP TO EMT VECTOR 

{UNIQUE ERROR NUMBER 

{ADDRESS OF ERROR MESSAGE 



JMP 

{UNEXPECTED TRAP 
10$: MOV (SP)*,RO 

MOV CSP)*,R5 

ERROR 

.WORD 453 

.WORD FPPERR 

3$: 



{VERIFY STATUS 
{BRANCH F GOOD 

{ALL ERRORS TO TRAP TO EMT VECTOR 
{UNIQUE ERROR NUMBER 
{ADDRESS OF ERROR MESSAGE 
jBAD STATUSV 

{GET OVER TRAP 

{SAVE PC 

jSAVF PS 
{ALL ERRORS TO TRAP TO EMT VECTOR 
; UNIQUE ERROR NUMBER 
{ADDRESS OF ERROR MESSAGE 
{UNEXPECTED TRAP 



MLS6. 
{ {**♦♦ 
i+TEST 

{ ;**** 
TST101 



*********** ********4.**************************.*********** + * 

101 TEST LDFPS, STFPS MODE 6 
******************** ** ********************* ********* ******* 



001142 
000244 



1$: 



001403 



INC 

MOV 

MOV 

MOV 

MOV 

LDFPS 

STKPS 

CMP 

BEQ 

ERROR 

.WORD 

.WORD 

CMP 
BEQ 



♦ TESTN! 

0TSIL0C.R4 

0140001 ( &^TSTLOC*4 

<HSrL0C*110,Rl 

010$ ,S)OFPVEC 

4CR4) 

-100CR1) 

R4.OTSTL0C 

It 

454 
FPPERR 

K1 ( #TSTL0C*110 



{INCREMENT TEST NUMBER 

-.POINT R4 TO RAM 

I SETUP EXPECTED STATUS 

jRl WILL POINT TO TESTL0C*10 

{SETUP TRAP VECTOR 

{♦TEST INSTRUCTION 

{♦TEST INSTRUCTION 
{VERIFY R4 
{BRANCH IF GOOD 

{ALL ERRORS TO TRAP TO EMT VECTOR 
{UNIQUE ERROR NUMBER 
{ADDRESS OF ERROR MESSAGE 



iVEHIFf 

{BRANCH 



Rl 

IF GOOD 



M9 



GLOBAl 


AREAS 


MACY11 


30AC1052) 15-MAR-84 16 


:5fl PAGI 
TEST LOI 


* 116 

*PS, STFPS MODE 6 








KDJ11A. 


MAC 15-MAR 84 


15:51 




T101 








6095 


031304 


104000 








ERROR 






I ALL ERRORS TO TRAP TO EMT 


VECTOR 


6096 


031306 


000455 








.WORD 


455 




{UNIQUE ERROR NUMBER 




6097 


031310 


002013 








• WORD 


FPPERR 




jADORESS OF ERROR MESSAGE 




6098 














tBAD 


Rl 






6099 


031312 


023727 


001146 


140001 


2$: 


CMP 


a^TSTLOCflO, £140001 




{VERIFY STATUS 




6100 


031320 


001412 








BEQ 


3$ 




) BRANCH F GOOD 




6101 


031322 


104000 








ERROR 






jALL ERRORS TO TRAP TO EMT 


VECTOR 


6102 


031324 


000456 








.WORD 


456 




{UNIQUE ERROR NUMBER 




6103 


031326 


002013 








.WORD 


FPPERR 




{ADDRESS OF ERROR MESSAGE 




6104 














j BAD 


STATUSX 




6105 


031330 


000167 


000012 






JMP 


3$ 




iGET OVER TRAP 




6106 










j UNEXPECTED TRAP 








6107 


031334 


012600 






101: 


MOV 


(SP)t # R0 




5 SAVE PC 




6108 


031336 


012605 








MOV 


(SP)*,R5 




{SAVE PS 




6109 


031340 


104000 








ERROR 






{ALL ERRORS TO TRAP TO EMT 


VECTOR 


6110 


031342 


000457 








.UORD 


457 




{UNIQUE ERROR NUMBER 




6111 


031344 


002013 








, WORD 


FPPERR 




{ADDRESS OF ERROR MESSAGE 




6112 














{UNEXPECTED TRAP 




61 13 


031346 








3$: 












6114 






















6115 






















6116 


031346 








MLS7 : 












6117 










ll *4. + + ± + ±t + A + ± + + + + + + + \+± + + + + +.4.+. + + + **,+. + +, + + *+.+ ++.+.+ ++.+.+ *+ +. + + + + +.**+ + + 




611.8 










;*TEST 


102 


TEST LDFPS, STFPS MODE ' 


7 




61V) 










j ;***** 


.,A*i*A4A****AAv*** + ********+*4.*.****t**#.*****i*M********** 




6120 


031346 








TST102: 












6121 


031346 


005267 


147432 






INC 


*TESTN 




{INCREMENT TEST NUMBER 




6122 


031352 


012704 


001236 






MOV 


0TSTL0C*100,R4 




{POINT R4 TO RAM 




6123 


031356 


012737 


001142 


001136 




MOV 


<MSTLOC*4,S*TSTL0C 




fTSTLOC- DEFERRED ADDRESS 




6124 


031364 


012737 


145501 


001142 




MOV 


0145501. S*TSTL0C*4 




{SETUP EXPECTED STATUS 




6125 


031372 


012701 


001046 






MOV 


0TSTL0C-70.R1 




{PI POINTS TO TGTLOCfiO 




6126 


031376 


012737 


001146 


001140 




MOV 


*TSTL0CflO,S*TSTL0C*2 


* 




6127 


031404 


012737 


031474 


000244 




MOV 


oioi.qotpvec 




{SETUP TRAP VECTOR 




6128 


031412 


170174 


177700 






LDFPS 


S-100CR4) 




{♦TEST INSTRUCTION 




6129 


031416 


170271 


000072 






STEPS 


Q72CR1) 




UTEST INSTRUCTION 




6130 


031422 


020427 


001236 






CMP 


R4,0TSTLOC*1OO 




{VERIFY R4 




6131 


031426 


001403 








BEQ 


11 




{BRANCH IF GOOD 




6132 


031430 


104000 








ERROR 






{ALL ERRORS TO TRAP TO EMT 


VECTOR 


6133 


031432 


000460 








.WORD 


460 




{UNIQUE ERROR NUMBER 




6134 
61 3S 


031434 


002013 








.WORD 


FPPERR 




{ADDRESS OF ERROR MESSAGE 




6136 


031436 


02012 7 


001046 




1*: 


CMP 


Rl,#TSTL0C-70 




{VERIFY Rl 




6137 


031442 


001403 








BEQ 


2% 




{BRANCH IF GOOD 




6138 


031444 


104000 








ERROR 






{ALL ERRORS TO TRAP TO EMT 


VECTOR 


6159 


C31446 


000461 








.WORD 


461 




{UNIQUE. ERROR NUMBER 




6140 


031450 


002013 








.WORD 


FPPERR 




{ADDRESS OF ERROR MESSAGE 




6141 














}BAD 


Rl 






6142 


031452 


023727 


001146 


145S01 


?ti 


CMP 


aOT5TLOC*10,0145501 




{VERIFY STATUS 




6143 


031460 


001412 








BEQ 


3$ 




{BRANCH F GOOD 




6144 


03X62 


104000 








ERROR 






{ALL ERRORS TO TRAP TO EMT 


VECTOR 


6145 


O r .; 464 


000462 








.WORD 


462 




{UNIQUE ERROR NUMBER 




6146 


0J.1466 


002013 








.WORD 


FPPERR 




{ADDRESS OF ERROR MESSAGE 




614 7 














j BAD 


STATUSX 




6148 


031470 


000167 


000012 






JMP 


3* 




{GET OVER TRAP 




6149 










j UNEXPECTED TRAP 








6150 


031474 


012600 






10$: 


MOV 


CSP)*,RO 




{SAVE PC 





SEQ 0116 



N9 



GLOBAL AREAS 
KDJ11A.MAC 



6151 

6152 

6153 

6154 

6155 

6156 

6157 

6158 

6159 

6160 

6161 

6162 

6163 

6164 

6165 

6166 

6167 

6168 

6169 

6170 

6171 

6172 

6173 

6174 

6175 

6176 

6177 

6178 

6179 

6180 

6181 

6182 

6183 

6184 

6185 

6186 

6187 

6188 

6189 

6190 

6191 

6192 

6193 

6194 

6195 

6196 

6197 

6198 

6199 

6200 

6201 

6202 

6203 

6204 

6205 

6206 



0314 76 
031500 
031502 
031504 

031506 



MACY.ll 30AC1052) 
15-MAR64 15 iM 

012605 
104000 
000463 
002013 



15-MAR-84 
T102 



16:58 PAGE 117 

TEST LDFPS, STFPS MODE 7 



SEQ 0117 



031506 



031506 
031506 
031512 
031514 
031520 
031522 

osis^o 

031532 
031534 
031536 
031540 
031542 
031546 
031550 
031552 
031554 

031556 
031562 
031564 
031566 
031570 
031572 

031574 
031600 
031604 
031606 
031612 
C31616 
031620 
031622 
031624 

031626 



031626 



031626 
031626 



MOV 
ERROR 
• WORD 
.WORD 



CSP)*,R5 

463 
FPPERR 



00526/ 
005001 
012704 
170104 

012737 
177027 
005201 
005201 
005201 
005201 
020127 
001412 
104000 
000464 
002013 

000167 
012600 
012605 
104000 
000465 
002013 

012704 

012701 
174011 
004 767 
005767 
001403 
104000 
000466 
002013 



14727? 
007700 
031562 000244 



3$: 



MLDC2: 

[ ; ***** 

i*TEST 

; ;***** 

TST103: 



, SAVE PS 
j ALL ERRORS TO TRAP TO F.MT VECTOR 
I UNIQUE ERROR NUMBER 
j ADDRESS OF ERROR MESSAGE 
jUNEXPECTED TRAP 



*********************** ***************** ** **************** 
103 TEST LDCLD MODE ?.l 

******** 4i***************4****************+ + *************** 



000003 



000012 



10$ 



001266 
001126 

150334 
147222 



1$: 



INC 

CLR 

MOV 

LDFPS 

MOV 

LDCLD 

INC 

INC 

INC 

INC 

CMP 

BEQ 

ERROR 

.WORD 

.WORD 

JMP 

MOV 

MOV 

ERROR 

.WORD 

• WORD 

MOV 

MOV 

STD 

JSR 

TST 

BEQ 

ERROR 

.WORD 

.WORD 



$TESTN 
Rl 

47700, R4 
R4 

#10$,8*FPVEC 

CR7)*,AC0 

Rl 

Rl 

Rl 

Rl 

R1.03 

XX 

'104 
FPPERrt 

1* 

(SP)*,R0 
CSP)* .R5 

465 
FPPERR 

rV.AbtiA.R4 

0RECDST.R1 

ACO.(Rl) 

R7.DATVER 

COUNT 

2$ 

466 
FPPERR 



2$: 



iINCPEMENT TEST NUMBER 

jINIT Rl 

{FPS-D0U6LE, LONG 

J 

} SETUP WILD TRAP 

;*TEST INSTRUCTION 



J 

} 

{VERIFY 

{BRANCH IF GOOD 

{ALL ERRORS TO TRAP TO EMT VECTOR 

s UNIQUE ERROR NUMBER 

{ADDRESS OF ERROR MESSAGE 
{INSTRUCTION FAILED 

{JUMP OVER WILD TRAP 

{SAVE PC 

. 5AVE PS 

{ALL ERRORS TO TRAP TO EMT VECTOR 

{UNIQUE ERROR NUMBER 

{ADDRESS OF ERROR MESSAGE 
{WILD TRAP ON INSTRUCTION 

{POINT TO EXPECTED DATA 

{POINT TO DATA BUFFER 

{VERIFY DATA 

1 

{BRANCH IF GOOD DATA 
.-ALL ERRORS TO TRAP TO EMT VECTOR 
{UNIQUE ERROR NUMBER 
; ADDRESS OF ERROR MESSAGE 
{BAD DATA 



005267 147152 



MLCF: 

j*************************************************************** 

♦ TEST 104 TEST I DC IF . I DCl V 

j*************************************************************** 
TST104: 

INC STESTN {INCREMENT TEST NUMBER 



BIO 



GLOCAi. 


AREAS 


MACU1 


5DAC1052) 


15 MAR 84 16:58 PAGE 118 






KDJ11A. 


MAC 15 -MAR -84 


J5;51 


T104 TEST LDCIF, LOCI F 






ti»?o ; 








ll/INT-0 








6208 


051632 


004 767 


001500 


JSR 


R7.LCFSUB 


j DO 


TEST 


6209 


051636 


000000 


000 X)0 


.WORD 


0,0 


»FSRC 




6^10 


051642 


OOOC™ 


oooooo 


.WORD 


0,0 


iRESULT 




6011 


051646 


000000 




.WORD 





1 TEST FPS 




6212 


051650 


000004 




.WORD 


4 


jRESULT FPS 




6215 








J2/INT-0, -1 








6214 


051652 


004767 


000460 


JSR 


R7,lCF'SU6 


iDO 


TEST 


6215 


051656 


OOOOOO 


17 7777 


.WORD 


0, 1 


»FSRC 




6216 


051662 


oooooo 


OOOOOO 


.WORD 


0,0 


l RESULT 




6217 


051666 


007440 




.WORD 


7440 


I TEST EPS 




6218 


051670 


007444 




.WORD 


7444 


iRESULT FPS 




6219 








13/L0NG-0 








6220 


051672 


004 76 7 


000440 


JSR 


R7.LCFSUB 


jDO 


TtST 


6221 


051676 


oooooo 


OOOOOO 


.WORD 


0,0 


|ESRC 




6222 


051702 


oooooo 


OOOOOO 


.WORD 


0,0 


iRFSU T 




6225 


051706 


000100 




.WORD 


100 


1 TEST FPS 




6224 


031710 


000104 




.WORD 


104 


jRESULT FPS 




6225 








J4/1NT-40OOO 








6226 


051712 


00476/ 


000420 


JSR 


R7,tcrsue 


tDO 


TEST 


6227 


031716 


040000 


OOOOOO 


.WORD 


40000,0 


l^SRC 




6226 


051722 


O456O0 


OOOOOO 


.WORD 


43600,0 


iRESULT 




6229 


051726 


oooow 




.WORD 


17 


I TEST FPS 




6250 


051750 


oooooo 




.WORD 





1 RESULT FPS 




6251 








|5/L0NG"1 








6252 


051752 


004767 


000400 


JSR 


R7.LCFSU6 


iDO 


TEST 


6253 


051736 


OOOOOO 


00OO01 


.WORD 


0,1 


jFSRC 




6254 


051742 


040200 


OOOOOO 


.WORD 


40200,0 


iRFSU T 




62 5 5 


051746 


000117 




.WO«D 


117 


i TEST FPS 




6256 


051750 


000100 




.WORD 


100 


jRESU T FPS 




625 7 








16/IWT-PATTERN 








6258 


051752 


004767 


000560 


JSR 


r/.lcfsub 


|D0 


TEST 


6259 


05W56 


000252 


025252 


.WORD 


252.25252 


|MJRC 




6240 


051762 


042052 


OOOOOO 


.WORD 


42052.0 


iRESU T 




6241 


051/66 


OOOOOO 




,WOR0 





1 TEST ►PS 




6242 


031770 


OOOOOO 




.WORD 





jRESU T FPs 




624 5 








j 7/INT--4OOO0 








6244 


051772 


004 76 7 


i>00340 


JSR 


R7,i a sue 


|Df) 


TEST 


6245 


051/76 


140OO0 


oOOOOO 


.WORO 


<C 0000,0 


I^SRC 




6246 


052002 


14 5600 


OOOOOO 


.WORD 


145600,0 


1 Ml 


iULT 


624/ 


0520O6 


000007 




.WORD 


7 


I TEST FPS 




6248 


052010 


OOOOIO 




.WORD 


10 


1 RESULT FPS 




6249 








IH/INT--1 








6250 


032012 


004 76 7 


000 520 


JSR 


r/.io suh 


lOu 


TEST 


6251 


052016 


177777 


OOOOOO 


.WORD 


1.0 


I'SRC 




6252 


052022 


1402OO 


OOOOOO 


.WORD 


140200,0 


iRESULT 


6255 


052026 


000007 




.WORD 


/ 


1 TEST KPS 




6254 


052030 


000010 




.WORD 


10 


i RESULT FPS 




6255 








j9/INT-PATTFRN 








6256 


052052 


004 76 7 


000 300 


JSR 


R/,t C> SUB 


1 00 


TEST 


625? 


0520 36 


12525^ 


12525,' 


.WORD 


125252,125252 


i> SRC 


6258 


052042 


145652 


126000 


.WORD 


14 5652,126000 


i Mf l 


iU.. 1 


6259 


052046 


000OO7 




.WORO 


/ 


1 TtS! ►PS 




6260 


032050 


000010 




.WORD 


10 


iHLSULT M'S 




6261 








liQ/lQNk*4 0QQQ 








6262 


032052 


004 767 


000260 


JUR 


r/,lcfsuu 


iDO 


TEST 



SEQ 0116 



CIO 



ULOtfAt. 
K0J11A. 


ar s uWttb 


BfgtfK) 


15-MAR T?S4 t6,fg ST P^19 L0Clf . 




6263 


032056 


040000 


000000 


■ WORD 
.WORD 


40000,0 


iFSRC 


6264 


032062 


04 7600 


000000 


4 7600,0 


jRESU.T 


62^5 


032066 


0" • 1 7 




.WORD 


117 


i TEST FPS 


6266 


032070 






.WOPO 


100 


I RESULT FPS 


6267 








lll/LONG-1 






6268 


032072 


•, 


000240 


JSR 


R7.LCFSUB 


|D0 TEST 


6269 


032076 


( 


000001 


.WORD 


0.1 


|FSRC 


6270 


032102 


l . . . J 


000000 


.WORD 


40200,0 


iRESU.T 


62/1 


032106 


00 7557 




.UORD 


7557 


j TEST FPS 


6272 


032110 


007540 




.WORD 


7540 


iRESULT FPS 


6273 








|12/L0NG-PATTERN 




6274 


032112 


004767 


000220 


JSR 


R7.LCF5U6 


iDO TEST 


6275 


032116 


000000 


000252 


.WORD 


0,252 


jFSRC 


6276 


032122 


042052 


000000 


.WORD 


42052,0 


iRESULT 


6277 


032126 


007557 




.WORD 


7557 


I TEST FPS 


6278 


032130 


007540 




.WORD 


7540 


iRESULT FPS 


6279 








|13/L0NG - -40000 




6280 


032132 


0O4767 


000200 


JSR 


R7,LCf SUB 


jDO TEST 


6281 


032136 


140OO0 


000000 


.WORD 


-40000.0 


jFSRC 


6282 


032142 


14 7600 


000000 


.WORD 


14 7600,0 


iRESULT 


6283 


032146 


000107 




.WORD 


107 


\ TEST FPS 


6284 


032150 


0O0110 




.WORD 


110 


iRESULT FPS 


6285 








U4/L0NG--1 






6286 


032152 


004 767 


000160 


JSR 


R7.LCFSU0 


:D0 TFST 


6287 


032156 


177777 


1 77777 


.WORD 


l.-l 


iFSRC 


6288 


032162 


140200 


000000 


.WORD 


140200,0 


j RESULT 


6289 


032166 


007500 




.WORD 


7500 


j TEST FPS 


6290 


032170 


007510 




.WORD 


7510 


iRESULT FPS 


6291 








115/LONG-PATTEHN 




6292 


032172 


004 767 


0OO140 


JSR 


R7,lcfsub 


iDO TEST 


6293 


032176 


125252 


125252 


.WORD 


125252,125252 


jFSRC 


6294 


032202 


14 7652 


125253 


.WORD 


14 7*52,125253 


i RESULT 


6295 


032206 


C00105 




.WORD 


105 


I TE l T FPS 


6296 


032210 


000110 




.WORD 


110 


iRESULT FPS 


629^ 








IL6/L0NG- 77777, 


,177500 




6298 


032212 


00*767 


000120 


JSR 


R7.LCFSU8 


jDO TEST 


62*9 


032216 


07/777 


177500 


.WORD 


77777,177500 


ifssc 


6300 


032222 


04/777 


177777 


.WORD 


47777,177777 


{RESULT 


6301 


032226 


0O0117 




.WORD 


117 


j TEST FPS 


6302 


032230 


000100 




.WORD 


100 


iRESULT FPS 


6303 








I17/L0NG-40OO0, 


,1 00 




6304 


032232 


004 767 


000100 


JSR 


R7.LCKSUH 


iDO TEST 


6305 


032236 


040000 


000100 


.WORD 


40000,100 


;FSRC 


6306 


032242 


04 7600 


0COO01 


.WORO 


4 7600,1 


(RESULT 


6307 


032246 


007502 




.WORD 


7502 


I TEST FPS 


6308 


032250 


007500 




.WORD 


7500 


iRESULT FPS 


6309 








U8/L0NG-40OOO 


,100 TRUNCATE 




6310 


032252 


004 767 


000060 


JSR 


R7.L-CFSUB 


jDO TEST 


6311 


032256 


040000 


000100 


.WORD 


40000,100 


jFSRC 


6312 


032262 


04 7600 


000000 


.WORD 


4 7600,0 


j RESULT 


6313 


032266 


00 755 7 




.WORD 


7557 


1 TEST FPS 


6314 


032270 


00/540 




.WORD 


7540 


iRESULT FPS 


6315 








J19/XNT- MOST NEGATIVE 




6316 


032272 


004 76 7 


000040 


JSR 


R7.LCFSUB 


iDO TEST 


6317 


032276 


100000 


000000 


.WORD 


100000,0 


i*SRC 


63itt 


032302 


144000 


000000 


»WQRD 


144000,0 


iRESULT 



SEQ 0119 



DIG 



GLOBAL. 


ARFAS 


MACU1 


30AC105; 


KOJ11A, 


MAC 15 -MAR -84 


15*51 


b319 


032306 


000007 




6320 


032310 


000010 




6321 








6322 


032312 


004 767 


000020 


6303 


032316 


100000 


000000 


6324 


032322 


150000 


000000 


6325 


032326 


000107 




6326 


032330 


000110 




6327 








6328 








6329 


032332 


000167 


000126 


6330 








6331 








6332 








6333 








6334 








6335 








6336 








6337 








6338 








6339 








6340 








6341 








6342 








6343 








6344 








*345 


032336 


012602 




6346 


032340 


012737 


032446 


634 7 


032546 


012701 


001126 


6348 


032352 


016200 


000010 


6349 


032356 


170100 




6350 


032360 


010204 




6351 








6352 


032362 


177014 




6353 








6354 








6355 


C32364 


170203 




6356 


032366 


012700 


000200 


6357 


032372 


170100 




6358 


032374 


174011 




6359 


032376 


016200 


000012 


6360 


032402 


020O03 




6361 


032404 


001403 




6362 


032406 


104000 




6363 


032410 


000467 




6364 


032412 


002013 




6365 








6366 


032414 


010204 




6367 


032416 


062704 


000004 


6368 


032422 


004767 


147502 


6369 


032426 


005767 


146406 


6370 


0324 32 


001403 




6371 


032434 


104000 




6372 


032436 


0004 70 




6373 


032440 


002013 




6374 









15-MAR-84 
T104 



16 if>8 PAGE 120 

TEST LDCIF, LDCLF 



SEQ 0120 



000244 



. WORD 
.WORD 
120/LONG- MOST 
JSR 
.WORD 
.WORD 
.WORD 
.WORD 



i 



JMP 



7 

10 
NEGATIVE 
R7.LCFSU6 
100000.0 
150000,0 
107 
110 



HOP 18 



I TEST FPS 
{RESULT FPS 

jDO TEST 
tFSRC 
I RESULT 

{ TEST FPS 

jRESULT FPS 



jGET OVER SUBROUTINE 



l*X*X*X*X*X*X*X*X*X*X*X*X*X*X*X*X«X«X*X*X 
{♦X*X*X*X*X*X*X*X*X*X*X*X*X*X*X*X*X*X*X*X 
i LDCIF, LDCLF 



♦ X' 

*x*. 



«:>x*x*x 
x±x*x*x 



FSRC 

RESULT 

FPS BEFORE EXECUTION 

FPS AFTER EXECUTION 



tNO TRAP CAN OCCUR 
,*X*X*X*X*X*X*X*X*X*X*X*X*X*X*X*X*\+ 

,*X*X*X*X*X*X*X*X6X*X*X*X*X*X*X*X«X* 



.♦x*x 

< X:«X 



♦x*x*x*x*x*x*x*x*x 
•x«x*x*x*x*x*x*x*x 



LCFSUB: 



I 
40$; 

{VERIFY 
2$: 



MOV (SP)*,R2 

MOV *50$,»*FPVEC 

MOV 0RECDST.R1 

MOV 10(R2),R0 

LOFPS RO 

MOV R2.R4 

LDCIF (R4),AC0 



; REKffN ADDRESS TO USE AS POINTER 
{REDIRECT TRAP VECTOR 
, POINT TO RESULT AREA 
{GET TEST FPS 
lLOAD TEST FPS 
{POINT TO TEST DATA 

j*TEST INSTRUCTION (ACCORDING TO MODE) 



3$: 
4$; 



STATUS 

STEPS 

MOV 

LDFPS 

STD 

MOV 

CMP 

BED 

ERROR 

.WORD 

.WORD 

MOV 

ADD 

JSR 

TST 

BEQ 

ERROR 

.WORD 

.WORD 



R3 

O200.R0 

RO 

ACO.CRl) 

12(R2),R0 

R0,R3 

3$ 

467 
FPPERR 

R2.R4 
^4,R4 
R7.DATVFR 

COUNT 
5$ 

4 70 
FPPERR 



{BAD FPS 



j BAD ACO 



SAVE FPS 

SEi FPP STATU5 TO DOUBLE 

SAVE TEST RESULT INTO HECDST 

iGET EXPECTED STATUS 
VERIFY STATUS 
BRANCH IF GOOO 

ALL ERRORS TO TRAP TO EMT VECTOR 
l^IQUE ERROR NUMBER 
ADDRESS OF ERROR MESSAGE 

POINT TO EXPECTED DATA 

{VERIFY DATA 

BRANCH IF GOOD 

ALL ERRORS TO TRAP TO EMT VECTOR 

UNIQUE ERROR NUMBER 

ADDRESS OF ERROR MESSAGE 



£10 



GLOBAL ARFAS 
KDJ11A.MAC 



MAO 11 30AC1052) 
15-MAR-84 15:51 



15-MAR-84 

T104 



6575 
6376 
6377 
6378 
6379 
6380 
6381 
6382 
6383 
6384 
6385 
6386 
6387 
6388 
6389 
6390 
6391 
6392 
6393 
6394 
6395 
6396 
6397 
6398 
6399 
6400 
6401 
640? 
6403 
6404 
6405 
6406 
6407 
6408 
6409 
6410 
6411 
6412 
6413 
6414 
6415 
6416 
6417 
6418 
6419 
6420 
6421 
6422 
6423 
6424 
6425 
6426 
6427 
6428 
6429 
6430 



032442 000162 000014 



032446 
032450 
032452 
032454 
032456 

032460 
032464 

032464 



032464 
032464 

032470 
032474 
032500 
032506 
032510 
032512 

032514 
032520 
032524 
032532 
032534 
032536 

032540 
032544 
032550 
032556 
032560 
032562 

0325 4 
0325 ^ 
032574 
032602 
032604 
032606 

032610 
032614 
032620 
032626 
032630 
032632 

032634 
032640 



012600 
012605 
104000 
0004 71 
002013 

000167 177756 



005267 146314 



004767 
OOOOOO 
000000 
OOOOOO 
007313 
007304 

004767 
OOOOOO 
040200 
OOOOOO 
007757 
007740 

004767 
040000 
043600 
OOOOOO 
007617 
007600 

004767 
140000 
143600 
OOOOOO 
007600 
0076 10 

004 767 
040000 
047600 
OOOOOO 

007757 
00/740 

004767 
OOOOOO 



000264 
OOOOOO 
OOOOOO 



000240 
000001 
OOOOOO 



000214 

177777 
OOOOOO 



000170 
177777 
OOOOOO 



000144 
OOOOOO 
OOOOOO 



000120 
000001 



OOOOOO 



OOOOOO 



OOOOOO 



OOOOOO 



OOOOOO 



16:58 
TEST 



JMP 



p l a B! 



ii*? 1 



LDCLF 



SEQ 0121 



U(R2) 



5*: 

; 

I INSTRUCTION TRAPPED 



50$: 



H0P18: 



MOV 

MOV 

ERROR 

.WORD 

.WORD 

JMP 



c sp ) » , no 

(3P)»,R5 

471 
FPPERR 

5$ 



{RETURN FROM TEST 



i SAVE PC 
l SAVE PS 

I ALL ERRORS TO TRAP TO EMT VECTOR 
I UNIQUE ERROR NUMBER 
{ADDRESS OF ERROR MESSAGE 
{INSTRUCTION WASNT SUPPOSE TO TRAP 
{CONTINUE 



MLCD: 

{♦TEST 105 TEST I.OCID, LDCLO 

TST105: 

{INCREMENT TEST NUMBER 



INC 
jl/LONG-O 

JSR 

.WORD 

.WORD 



{2/INT-O 



.WORD 
.WORD 

JSR 

.WORD 

.WORD 



.WORD 
.WORD 
;3/INT-4000O 
JSR 
.WORO 
.WORD 

.WORD 
WORD 
j4/INT- -40000 
JSR 
.WORD 
.WORD 

.WORD 
.WORD 
{5/LONG-40000 
JSR 

.WORD 
.WORD 

.WORD 
.WORD 
{6/L0NG--1 

JSR 
.WORD 



$TESTN 

R7.LCDSUB 

0,0 

0,0.0,0 

7313 

7304 

R7.LCDSUG 

0.1 

40200.0,0,0 

7757 

7740 

R7.LCDSU6 
40000. -1 
43600,0,0,0 

7617 

7600 

R7.LCDSU6 
-40000, -1 
143600*0, 0.0 

7600 
7610 

R7.LCDSU6 

40000,0 

47600,0,0,0 

7757 

7740 

R7.LCDSU8 
0.1 



iFSRC 
{RESULT 



{DO TEST 



i TEST FPS 
{RESULT FPS 



{FSRC 



{00 TEST 

{RESULT 



{ TEST FPS 
{RESULT FPS 



{DO TEST 
j FSRC 
{RESULT 



i TEST FPS 
{RESULT FPS 



{DO TEST 

;FSRC 

{RESULT 



I TEST FPS 
{RESULT FPS 



{FSRC 



I DO TEST 
{RESULT 



I TEST FPS 
{RESULT FPS 



{FSRC 



iDO TEST 



F10 



GLOBAL AREAS 
KDJUA.MAC 



MACY11 30AC1052) 
15 -MAR -04 15:51 



15-MAR-84 16 
T105 



:58 PAGE 12 
TEST LOCIO, 



22 



"LDCLD 



SEQ 0122 



6431 
6432 

6*33 
6434 
6435 
6436 
6437 
6438 
6439 
6440 
6441 
6442 
6443 
6444 
6445 
6446 
644 7 
6448 
6449 
6450 
6451 
6452 
6453 
6454 
6455 
6456 
6457 
6458 
6459 
6460 
6461 
6462 
6463 
6464 
6465 
6466 
6467 
6468 
6469 
64 70 
6471 
6472 
6*73 
6474 
64 75 
64 76 
64 7/ 
64 78 
64 79 
6480 
6481 
6482 
6483 
6484 
6485 
6486 



032644 
032652 
032654 
032656 

032660 
032664 
032670 
032676 
032700 
032702 

032704 
032710 
032714 
032722 
032724 
032726 

032730 
032734 
032740 
032746 
032750 
032752 



040200 
000000 
000300 
000300 

004767 
177777 
140400 
OOOOOO 
007300 
007310 

004767 
123456 
143661 
OOOOOO 
000200 
000210 

004 767 
125252 
147652 
OOOOOO 
000300 
000310 



OOOOOO OOOOOO 



000074 
177776 
OOOOOO OOOOOO 



000050 
176543 
122000 OOOOOO 



000024 
125252 
125252 126000 



.WORD 40200,0,0,0 



l RESULT 



032754 000167 000126 



,WORD 
.WORD 
{7/L0NG--2 
JSR 
.UORD 
.WORD 

.WORD 
.WORD 
{8/INT-PATTERN 

JSR 

.WORD 

.WORD 

.WORD 
.WORD 
{9/LONG-PAUERN 
JSR 
.WORD 
.WORD 

.WORD 
.WORD 



JMP 



300 
300 

R7.LCDSU8 

-1.-2 

140400,0,0,0 

7300 
7310 



t TEST FPS 
jRESULT FPS 



{FSRC 



{DO TEST 
{RESULT 



j TEST FPS 
{RESULT FPS 



R7.LCDSUB 

123456,176543 

143661,122000,0,0 



{DO TEST 
{FSRC 



{RESULT 



200 
210 



} TEST FPS 
{RESULT FPS 



R7.LCDSU6 {00 TEST 

125252.125252 {FSRC 

147652 , 125252 , 126000 , 



{RESULT 



032760 012602 

032762 012737 033070 000244 

032770 012701 001126 

032774 016200 000014 

033000 170100 

033002 010204 

033004 177014 



033006 170203 

033010 012700 000200 

033014 170100 



300 
310 



H0P19 



j TEST FPS 
{RESULT FPS 



{GET OVER SUBROUTINE 



*X*X*X*X*X<X*X*X*X*X*X*X*X*X*X*X*X*X*X*X*X*X*X*X*X*X*X*X*X 

•x*x*x+x*x*x*x*x*x+x*x+x*x*x*x*x*x*x+x*x*x*x*x*x*x*x+x*x+x 

LDCID, LDCLD 

FSRC 

RESULT 

FPS BEFORE EXECUTION 

FPS AFTER EXECUTION 

NO TRAP CAN OCCUR 

♦ X*X*X*XoX*X*X«X*X*X*X*X*X*.<*X*X*X*X*X*X*X*X*X*X*X*X*X*X*X 

*X*X*X*X*X*X*X+X*X*X*X*X*X+*+X+X*X*X+X*X*X+X+X*X*X*X*X*X*X 



LCDSUB : 



40$: 

IvERIFY 
2$: 



MOV (SP)*,R2 

MOV «50$,S*FPVEC 

MOV ORECDST.Rl 

MOV 14CR2^,R0 

LDFPS RO 

MOV R2,R4 

LDCXO (R4),AC0 



I RETURN ADDRESS TO USE AS POINTER 

{REDIRECT TRAP VECTOR 

{POINT TO RESULT AREA 

{GET TEST FPS 

{LOAD TEST FPS 

{POINT TO TEST DATA 

{♦TEST INSTRUCTION (ACCORDING TO MODE ) 



STATUS 
STFPS 
MOV 
LDFPS 



R3 

4200, RO 
RO 



{SAVE FPS 

;SET FPP STATUS 

i 



TO DOUBLE 



G10 



GLOBAL AREAS 
KDJUA.MAC 



6487 

6433 

648V 

6490 

6491 

6492 

6493 

6494 

6495 

6496 

6497 

6498 

6499 

6500 

6501 

6502 

6503 

6504 

6505 

6506 

6507 

6508 

6509 

6510 

6511 

6512 

6513 

6514 

6515 

6516 

6517 

6518 

6519 

6520 

6521 

6522 

6523 

6524 

6525 

6526 

6527 

6523 

6529 

6530 

6531 

6532 

6533 

6554 

6535 

6536 

65J7 

6538 

6539 

6540 

6541 

6542 



033016 
033020 
033024 
033026 
033030 
033032 
033034 

033036 
033040 
033044 
033050 
033054 
033056 
033060 
033062 



MACU1 
15 -MAR -84 

174011 
016200 
020003 
001403 
104000 
0004 72 
002013 

010204 
062704 
004767 
005767 
001403 
104000 
0004 73 
002013 



033070 
033072 

033074 
033076 
033100 

033102 

033106 

033106 



033106 
033106 

033112 
033116 
033122 
033130 
033132 
033134 
033142 
033144 
033146 

033150 
033154 
033160 
053166 

033170 
033172 
033200 
033202 
033204 



30AU052) 
15:51 



000016 



15-MAR-84 
T105 



16? 



J 58 PAGE 12 

TEST LDCID, 



23 



LDCLD 



SEQ 0123 



005037 
004 767 
123456 
171717 
000010 
142056 
171717 
007757 
007750 

005037 
004 767 
023456 

000001 
000177 
077656 
000001 
00/700 
007 700 



000004 
147076 
145764 



033064 000162 000020 



012600 
012605 
104000 
000474 
002013 

000167 177756 



005267 145672 



001042 
001140 
067012 



067012 



001042 
001102 
070123 



070123 



3$ 

4$ 



5$ 



STD 

MOV 

CMP 

BEQ 

ERROR 

.WORD 

.UORD 

MOV 

ADO 

JSR 

TST 

BEQ 

ERROR 

.WORD 

.WORD 

JMP 



AC0.CR1) 
16(R2),R0 
R0.R3 
3$ 

472 

FPPERR 

R2.R4 

44.R4 

R7,DATVER 

COUNT 

5$ 

473 
FPPERR 

20CR2) 



{BAD FPS 



;BAD ACO 



j SAVE TEST RESULT INTO RECDSV 

{GET EXPECTED STATUS 
, VERIFY STATUS 
j BRANCH IF GOOD 

,ALL ERRORS TO TRAP TO EMT VECTOR 
i UNIQUE ERROR NUMBER 
{ADDRESS OF ERROR MESSAGE 

(POINT TO EXPECTED DATA 

{VERIFY DATA 

{BRANCH IF GOOD 

j ALL ERRORS TO TRAP TO EMT VECTOR 

i UNIQUE ERROR NUMBER 

{ADDRESS OF ERROR MESSAGE 



j INSTRUCTION TRAPPED 
50$: 



MOV 


CSP)*,RO 


MOV 


CSP)*.R5 


ERROR 




.WORD 


474 


.WORD 


FPPERR 



JMP 



5$ 



{RETURN FROM TEST 



{SAVE PC 
{SAVE PS 

{ALL ERRORS TO TRAP TO EMT VECTOR 
{UNIQUE ERROR NLtlBER 
{ADDRESS OF* ERROR MESSAGE 
INSTRUCTION WASNT SUPPOSE TO TRAP 
{CONTINUE 



HOP 19: 



MLXP: 

» I * + * + + ******♦* + ♦* + + *♦ + ***** + «♦**♦♦** + ♦ + *♦-+**<•* + *♦ + * + + *♦*** + ♦♦ + *♦ 
;*TEST 106 EST LDEXP DOUBLE 

TST106- 

INC ITESTN {INCREMENT TEST NUMBER 

jl/EXF-10 - AC-NEG 



025252 
025252 



CLR 
JSR 
.WORD 

.WORD 
.WORD 

.WORD 
.WORD 



8*fLAG jNO INTERRUPTS 

R7.LXPSUB jDO TEST 

123456,6 7012,25252,171717 5 ACO 

10 j EXP 

142056,67012,25252,17171? 



{RESULT 



7 75 7 
7750 
{2/EXP-177 - ACO-POS 



l TEST FPS 
{RESULT FPS 



100000 
100000 



CLR 
JSR 
.WORD 

.WORD 
.WORD 

.WORD 
.WORD 



tt#fl_AG 

R7 L XPSU6 

23456,70123,100000,1 

177 jEXP 

77656,70123,100000,1 



{NO INTERRUPTS 
{DO TEST 

{ACO 



{RESULT 



7 700 
7700 



{ TEST FPS 

{RESULT FPS 



H10 



GLOBAL 


AREAS 


MACU1 


30AQ052) 15-MAR-84 16 


: 5§ PAC 


}E 124 








KDJilA, 


MAC 15-MAP-84 


15?51 




T106 


EST LD* 


:XP DOUBLE 








6543 










|3/SXP- 


56 










6544 


033206 


005037 


001042 






CLfc 


QOFLAG 






j NO INTERRUPTS 


6545 


033212 


004 767 


001044 






JSR 


R7.LXPSUB 






{DO TEST 


6546 


033216 


055555 


044444 


033333 




.WORD 


55555 ,44444 , 33333 , 22222 


}AC0 


6547 


C33224 


02a222 


















6548 


033226 


000056 








• WORD 


56 




5 EXP 




6549 


033230 


053555 


044444 


03333? 




.WORD 


53555 , 44444 , 33333 . 22222 


{RESULT 


6550 


033236 


022222 


















6551 


033240 


007757 








.WORD 


7757 




t TEST EPS 


6552 


033242 


007740 








.WORD 


7740 




j RESULT 


FPS 


6553 










j4/EXP- 


-151, ACO-UV 








6554 


033244 


005037 


001042 






CLR 


aOfLAG 






{NO INTERRUPTS 


6555 


033250 


004767 


001006 






JSR 


R7,LXPSUB 






jDO TEST 


6556 


033254 


100077 


177777 


177777 




.WORD 


100077,-1,-1.- 


■2 




{ACO 


6557 


033262 


177776 


















6558 


033264 


177623 








.WORD 


-155 




{EXP 




6559 


033266 


104677 


177777 


177777 




.WORD 


104677,-1,-1,. 


-2 




{RESULT 


6560 


033274 


177776 


















6561 


033276 


007757 








.WORD 


7757 




i TEST 1 


~PS 


6562 


033300 


007750 








.WORD 


7750 




{RESULT 


FPS 


6563 










;5/EXP- 


-177 










6564 


033302 


005037 


001042 






CLR 


S0FLAG 






j NO INTERRUPTS 


6565 


033306 


004767 


000750 






JSR 


R7.LXPSUB 






{DO TEST 


6566 


033312 


000177 


177777 


177777 




.WORD 


177,-1,-1,-2 






j ACO 


6567 


033320 


177776 


















6568 


033322 


177601 








.WORD 


177 




;EXP 




6569 


033324 


0O0377 


17777? 


177777 




.WORD 


377.-1,-1,-2 






{RESULT 


6570 


033332 


177776 


















6571 


033334 


007700 








.WORD 


7700 




; TEST 1 


~PS 


6572 


033336 


007700 








.WORD 


7700 




{RESULT 


FPS 


6573 










{6/EXP- 


200, UNDERFLOW 








6574 


033340 


012737 


000001 


001042 




MOV 


*l,8*fLAG 






{ INTERRUPTS 


6575 


033346 


004767 


000710 






JSR 


R7.LXPSU6 






{DO TEST 


6576 


033352 


030131 


032334 


035363 




.WORD 


30131,32334,35363,73031 


{ACO 


6577 


033360 


073031 


















6578 


033362 


17 7600 








.WORD 


-200 




{EXP 




6579 


033364 


0OO131 


032334 


035363 




.WORD 


131,32334,35363 


,73031 


{RESULT 


6580 


033372 


073031 


















6581 


033374 


007740 








.WORD 


7740 




j TEST 1 


-PS 


6582 


033376 


107744 








.WORD 


107744 




{RESULT 


FPS 


6583 


033400 


000012 








.WORD 


12 




{EEC 




6584 










;7/EXP- 


LARGEST 


NEGATIVE 








6585 


033402 


012737 


000001 


001042 




MOV 


01.80FLAG 






{EXPECT INTERRUPTS 


6586 


033410 


004767 


000646 






JSR 


R7.LXPSU6 






jDO TEST 


6587 


033414 


000000 


000123 


000456 




.WORD 


0,123,456,1 






{ACO 


6588 


033422 


0OO001 


















6589 


033424 


1OOO00 








.WORD 


100000 




jEXP 




6590 


033426 


040000 


000123 


000456 




.WORD 


40000,123,456 


,1 




i RESULT 


6591 


033434 


000001 


















6592 


033436 


002200 








.WORD 


2200 




{ TEST 1 


FPS 


6593 


033440 


102200 








.WORO 


102200 




{RESULT 


FPS 


6594 


035442 


000012 








.WORD 


12 




J-EC 




6595 










18/EXP* 


-200, NEG. ACO 








6596 


033444 


012737 


000001 


001042 




MOV 


#1,8#FLAG 






{ INTERRUPTS 


6597 


033452 


004767 


000604 






JSR 


R7,LXPSUB 






{DO TEST 


6598 


033456 


111111 


100000 


100000 




.WORD 


111111,100000 


,100000, 1 


j ACO 



SEQ 0124 



110 



GLOBAL 


AREAS 


MACU1 


50AU052) 15-MI 


KDJUA, 


MAC 15-MAR-84 


15:51 




6599 


033464 


177777 






6600 


033466 


17 7600 






6601 


033470 


100111 


100000 


100000 


6602 


033476 


177777 






6603 


033500 


002217 






6604 


033502 


102214 






6605 


033504 


000012 






6606 










6607 


033506 


012737 


000002 


001042 


6608 


033514 


004767 


000542 




6609 


033520 


123456 


012346 


012346 


6. 


033526 


000123 






6(.».; i. 


033530 


176035 






661c? 


033532 


000000 


000000 


000000 


6613 


033540 


000000 






6614 


033542 


005700 






6615 


033544 


005704 






^616 


033546 


000012 






b617 










6618 


033550 


012737 


000002 


001042 


6619 


033556 


004767 


000500 




6620 


033562 


000377 


123456 


065432 


6621 


033570 


000001 






6622 


033572 


161162 






6623 


033574 


074577 


123456 


065432 


6624 


033602 


000001 






6625 


033604 


047 700 






6626 


033606 


147700 






6627 


033610 


000012 






6628 










6629 


033612 


005037 


001042 




6630 


033616 


004767 


000440 




6631 


033622 


100177 


177777 


177777 


6652 


033630 


177777 






6633 


033632 


000177 






6634 


033634 


177777 


177777 


177777 


6635 


033642 


177777 






6636 


033644 


007700 






6637 


053646 


007710 






6638 










6639 


033650 


005037 


001042 




6640 


033654 


0O4 767 


0OO402 




6641 


033660 


000200 


000100 


000200 


6642 


033666 


000300 






6643 


033670 


000150 






6644 


033672 


072000 


000100 


000200 


6645 


033700 


000300 






6646 


033702 


007717 






664 7 


03370* 


007700 






6648 










6649 


033706 


012737 


000001 


001042 


6650 


033714 


004 767 


000342 




6651 


033720 


17 7777 


177777 


177777 


6652 


033726 


177777 






6653 


033730 


000200 






6654 


033732 


10C177 


177777 


177777 



[-84 16-58 PAGE 125 
T106 EST LDEXP DOUBLE 



SEQ 0125 



.WORD -200 {EXP 

. WORD 1001 1 1 , 100000 , 100000 , - 1 



jRESULT 



.WORD 
.WORD 
.WORD 
{9/EXP--1743, FIU-0 
MOV 
JSR 
.WORD 



.WORD 
.WORD 

.WORD 

.WORD 

.WORD 

--166: 

MOV 

JSR 

.WORD 

.WORD 
.WORD 

.WORD 
.WORD 
.WORD 



2217 




I TEST FPS 




102214 




jRESULT FPS 




12 




jFEC 




U-O 








*2,S*FLAG 




,N0 


INTERRUPTS 


R7,LXPSU6 




j DO 


TEST 


123456,12346, 


,12346,123 


;AC0 


-1743 




{ EXP 




0,0,0,0 




{RESULT 




5700 




l TEST FPS 




5704 




jRESULT FPS 




12 




jFEC 




FID-1 








♦2.80FLAG 




{NO 


INTERRUPTS 


R7.LXPSUB 




:D0 


TfcST 


377,123456, 


,65432,1 


;AC0 



-16616 {EXP 

74577,123456,65432.1 



jRESULT 



47700 

147700 

12 



lll/EXP-177, ACO-UNOEFINED VARIABLE 



l TEST FPS 
{RESULT FPS 
{FEC 



CLR QOFLAG 

JSR R7,LXPSUB 

.WORD 100177, -1, -1, -1 

.WORD 177 

.WORD -1,-1,-1,-1 

.WORD 7700 

.WORD 7 710 



}N0 INTERRUPTS 

;D0 TEST 
;ACO 



jEXP 



{RESULT 



;12/EXP-150 ACO-POS 



CLR 30FLAG 

JSR R7.LXPSUB 

.WORD 200,100,200,300 



j TEST FPS 

{RESULT EPS 

{NO INTERRUPT 

{DO TEST 
;AC0 



.WORD 150 jEXP 

. WORD 72000 , 100 , 200 , 300 



{RESULT 



.WORD 7717 

.WORD 7 700 

{13/EXP-200, ACO-NEG 

MOV •1,8#FLAG 

JSR R7.LXPSU6 

.WORD -1, -1, 1, -1 

.WORD 200 

.WORD 100177, -1, 1, -1 



l TEST FPS 
{RESULT FPS 



jEXP 



jDO TEST 
{ACO 



{RESULT 



J10 



GLOBAL 


AREAS 


MACU1 


30AC1052) 15-MAR-84 16 


:58 PAGE 126 


KDJ11A. 


MAC 15-MAR-64 


15i51 




T106 


EST LDEXP DOUBLE 


6655 


033740 


177777 












6656 


033742 


007 705 








.WORD 


7705 i TEST FPS 


6657 


033744 


107716 








.WORD 


107716 {RESULT FPS 


6658 


033746 


000010 








.WORD 


10 iFEC 


6659 










5 14/EXP 


-400, FID 


6660 


033750 


012737 


000002 


001042 




MOV 


*2 , 8i>FLAG i INTERRUPT 


6661 


033756 


004767 


000300 






JSR 


R7.LXPSU6 {DO TEST 


6662 


033762 


000555 


177777 


177776 




.WORD 


555,-1,-2,-3 }AC0 


6663 


033770 


177775 












6664 


033772 


000400 








.WORD 


400 i EXP 


6665 


033774 


040155 


177777 


177776 




.WORD 


40155,-1,-2, -3 {RESULT 


6666 


034002 


177775 












666 7 


034004 


047700 








.WORD 


47/00 j TEST FPS 


6668 


034006 


147702 








.WORD 


147702 {RESULT FPS 


6669 


034010 


000010 








.WORD 


10 iFEC 


6670 










115/EXP 


-11011 FIU-0 


6671 


034012 


012737 


000000 


001042 




MOV 


♦O.SOFLAG {NO INTERRUPT 


6672 


034020 


004767 


000236 






JSR 


R7.LXPSU6 {DO TEST 


6673 


034024 


177773 


177777 


177776 




.WORD 


177773,-1,-2,-3 ;ACO 


6674 


034032 


1777 75 












6675 


034034 


011011 








.WORD 


11011 {EXP 


6676 


034036 


000000 


000000 


000000 




.WORD 


0,0,0,0 {RESULT 


6677 


034044 


000000 












6678 


034046 


006700 








.WORD 


6700 { TEST FPS 


6679 


034050 


006706 








.WORD 


6706 {RESULT FPS 


6680 










1 16/EXP 


■LARGEST 


POSITIVE 


6681 


034052 


012737 


000001 


001042 




MOV 


<n,S*Fl.AG {INTERRUPT 


6682 


034060 


004 767 


000176 






JSR 


R7,LXPSU6 {DO TEST 


668? 


034064 


123456 


000100 


000100 




.WORD 


123456 , 100 , 100 , 200 ; ACO 


6684 


034072 


000200 












6685 


034074 


077777 








.WORD 


77777 ,EXP 


6686 


034076 


137656 


000100 


000100 




.WORD 


137656,100,100,200 jRESU 


6687 


034104 


000200 












6688 


034106 


007740 








.WORD 


7740 i TEST FPS 


6689 


034110 


107752 








.WORD 


107752 i RESULT FPS 


6690 


034112 


0000 10 








.WORD 


10 {FEC 


6691 










}17/FL0ATING 




6692 


034114 


005037 


001042 






CLR 


&**FLAG {NO INTERRUPT 


6693 


034120 


004767 


000136 






JSR 


R7.LXPSUB {DO TEST 


6694 


034124 


123456 


023465 


000555 




.WORD 


123456,23465,555,444 5 ACO 


6695 


034132 


000444 












6696 


034134 


000050 








.WORD 


50 {EXP 


6697 


034136 


152056 


023465 


000555 




.WORD 


152056 , 23465 ♦ 555 ,444 t RESU 


6698 


034144 


000444 












6699 


034146 


007500 








.WORD 


7500 j TEST FPS 


6700 


034150 


007510 








.WORD 


7510 {RESULT FPS 


6701 










I18/H.0ATING UNDERFLOW 


6702 


034152 


012737 


000001 


001042 




MOV 


Ol.SOFLAG {INTERRUPT 


6703 


034160 


00476 7 


000076 






JSR 


R7.LXPSUB {DO TEST 


6704 


034164 


000333 


000444 


000555 




.WORD 


333,444,555,666 {ACO 


6 705 


034172 


000666 












6706 


034174 


177600 








.WORD 


-200 {EXP 


6707 


034176 


000133 


000444 


000555 




.WORD 


133 , 444 , 555 , 666 t RESULT 


6 708 


034204 


000666 












6709 


034206 


007500 








.WORD 


7500 ; TEST FPS 


6710 


034210 


107504 








.WORD 


107504 {RESULT FPS 



SEQ 0126 



K10 



GLOBAL AREAS 
KDJUA.MAC 



MACY11 30AC1052) 
15-MAR-84 15:51 



15-MAR-84 
T106 



16-58 PAGE 127 

EST LDEXP DOUBLE 



SEQ 0127 



6711 

6712 

6713 

6714 

6715 

6716 

6717 

6718 

6719 

6720 

6721 

6722 

6723 

6724 

6725 

6726 

6727 

6728 

6729 

6730 

6731 

6732 

6733 

6734 

6735 

6736 

6737 

6738 

6739 

6740 

6741 

6742 

6743 

6744 

6745 

6746 

6747 

6748 

6749 

6750 

6751 

6752 

6753 

6754 

6755 

6756 

6757 

6758 

6759 

6760 

6761 

6762 

6763 

6764 

6 765 

6766 



034212 000012 



034214 012737 000001 001042 

034222 004767 000034 

034226 012346 000123 000345 

03423* 000456 

034236 000400 

034240 040146 000123 000345 

034246 000456 

034250 007400 

034252 107402 

034254 000010 



034256 000167 000250 



034262 
034264 
034272 
034276 
034302 
034304 
034306 
034310 
034314 
034316 

034322 
034324 
034326 



034330 
034336 
034340 
034342 
034344 



012602 
012737 
012703 
012700 
170100 
010204 
172414 
016200 
170100 
016204 

176404 
170327 
000000 



032737 
001426 
104000 
0004 75 
002013 



034352 000244 

001126 

000200 



000022 
000010 



.WORD 12 }FEC 

;19/FL0ATING OVERFLOW 

MOV frl.QOFLAG 
JSR R7.LXPSUB 
.WORD 12346,123,345,456 



j INTERRUPT 
}D0 TEST 

>ACO 



.WORD 
.WORD 

.WORD 
.WORD 
.WORD 



400 ,EXP 

40146,123,345,456 



RESULT 



7400 

107402 

10 



j TEST FPS 
{RESULT FPS 
jFEC 



JMP H0P20 {GET OVER SUBROUTINE 

,*X*X*X*X*X*X*X*X*X*X*X*X*X*X*X*X+X*X+X*X*X*X*X+X+X*X*X*X*X 
j*X*X*X*X*X*X*X*X*X*X*X*X*X*X*X*X*X*X*X*X*X*X*X*X*X*X*X*X*X 
: LDEXP 

5 AGO 

i EXPONENT 

RESULT 

FPS BEFORE EXECUTION 

FPS AFTER EXECUTION 
i CFEC) 

I +X*X*X*X*X+X*X+X*X*X*X*X*X*X*X*X*X*X*X*X*X*X*X*X*X*X*X*X*X 

.*x*x*x*x*x*x*x*x*x*x*x*x*x*x*x*x*x*x*x*x*x*x*x*x*x*x*x*x*x 



LXPSUB: MOV 
MOV 
MOV 
MOV 
LDFPS 
MOV 
LDD 
MOV 
LDFPS 
MOV 



LDEXP 

STST 
.WORD 



(SP)*.R2 

«50$,S*fPVEC 

OflECDST.Rl 

*200,R0 

RO 

R2,R4 

CR4),AC0 

22CR2).R0 

RO 

10CR2),R4 

R4.AC0 

(PC)* 





000001 001042 



40$: 
1$: 

i 

i 

INSTRUCTION DIDNT TRAP 

BIT #1,8#FLAG 

BEQ 2$ 

ERROR 

.WORD 475 

.WORD FPPERR 



034346 000167 O00O42 



JMP 



2$ 



034352 
034360 



032737 
001005 



000001 001042 



{INSTRUCTION TRAPPED 
50*: BIT n,3«FLAG 

BNE 51$ 



j RETURN ADDRESS TO USE AS POINTER 
{REDIRECT TRAP VECTOR 
{POINT TO RESULT AREA 
{SET FPS TO DOUBLE 

{POINT TO ACO DATA 

;LOAD ACO 
{GET TEST FPS 
{LOAD TEST FPS 
{POINT TO TEST DATA 

{♦TEST INSTRUCTION (ACCORDING TO MODE) 
.•WAIT FOR POSSIBLE FPA TRAP, 
{STORE STATUS HERE 



{VERIFY A NO TRAP CONDITION 
{BRANCH IF G0 oO 

{ALL ERRORS TO TRAP TO EMT VECTOR 
{UNIQUE ERROR NUMBER 
{ADDRESS OF ERROR MESSAGE 
{INSTRUCTION SHOULD HAVE TRAPPED 
{REJOIN CODE 



{SEE TF EXPECTING A TRAP 
{BRANCH IF EXPECTING A TRAP 



GLOBAL AREAS 
KDJ11A MAC 



L1.0 



6767 
6768 
6769 
6770 
6771 
6772 
6773 
6774 
6775 
6776 
6777 
6778 
6779 
6780 
6781 
6782 
6783 
6784 
6785 
6786 
6787 
6788 
6789 
o790 
6791 
6792 
6793 
6794 
6795 
6796 
6797 
6798 
6799 
6800 
6801 
6802 
6803 
6804 
6805 
6806 
6807 
6808 
6809 
6810 
6811 
6812 
6813 
6814 
6815 
6816 
6817 
6818 
6819 
6820 
6 821 
6822 



034362 
034364 
034366 

034370 
034374 
034376 
034400 
034404 
034406 
034410 
034412 



MACU1 30AC1052') 
15-MAR-84 15:51 

1O4C00 
000476 
002013 

000167 000020 

012604 

005726 

022704 034324 

001403 

104000 

0004 77 

002013 



15-MAR-64 16:58 PAGE 128 



T106 



LDEXP DOUBLE 



SEU 0128 



034414 
034416 
034422 
034424 
034426 
034432 
034434 
034436 
034440 
034442 

034444 
034446 
034452 
034456 
034462 
034464 
034466 
034470 

0344 72 
034476 
034500 

034504 
034510 
034512 
034516 
034520 
034522 
034524 



170203 
012700 
170100 
174011 
016200 
020003 
001403 
104000 
000500 
002013 

010204 
062704 
004767 
005767 
001403 
104000 
000501 
002013 

005737 
001002 
000162 

012704 
170314 
021462 
001405 
104000 
000502 
002013 



000200 
000024 



000012 
145470 
144356 



001042 
000026 
001106 
000026 



034526 000162 O00O3O 

034532 

034532 



51$; 



j COMMON 
; VERIFY 
2$: 



3$: 

4$: 



5$ 



{VERIFY 
7$ i 



8$: 
H0P20: 

MSCO: 



ERROR 

.WORD 
.WORD 

JMP 

MOV 

TST 

CMP 

BEQ 

ERROR 

.WORD 

.WORD 



476 

FPPERR 

2$ 

CSP)* t R4 

CEP)* 

4!$,R4 

24 

477 
FPPERR 



jALL ERRORS TO TRAP TO EMT VECTOR 
{UNIQUE ERROR NUMBER 
{ADDRESS OF ERROR MESSAGE 
{INSTRUCTION WASNT SUPPOSE TO TRAf 
{REJOIN CODE 
j SEE IF PC - 
{CLEAN UP 

j BRANCH IF GOOD COMPARE 
{ALL ERRORS TO TRAP TO EMT VECTOR 
{UNIQUE ERROR NUMBER 
{ADDRESS OF ERROR MESSAGE 
{PC WAS INCORRECT 



INSTRUCTION 
STACK 



CODE FOR 

STATUS 

STFPS 

MOV 

LDFPS 

STD 

MOV 

CMP 

BEQ 

ERROR 

.WORD 

.WORD 

MOV 

ADD 

JSR 

TST 

BEQ 

ERROR 

.WORD 

.WORD 

TST 
BNE 

JMP 

FEC 

MOV 

STST 

CMP 

BEQ 

ERROR 

, WORD 

.WORD 

JMP 



TRAP AND NO TRAP 
R3 

.::c,ro 

RO 

ACO.(Rl) 

24(R2),R0 

R0.R3 

3$ 



500 
FPPERR 

R2,R4 
412, R4 
R7.DATVER 
COUNT 
5$ 

501 
FPPERR 

SOFLAG 

7$ 

26CR2) 

*RECFEC,R4 
(R4) 

(R4),26CR2) 
8$ 

502 
FPPERR 

30CR2) 



;BAD FPS 



{SAVE FPS 
{SETUP FPS 
iFPS-200 
{GET RESULT 

{GET EXPECTED STATUS 
{VERIFY STATUS 
{BRANCH IF GOOD 

{ALL ERRORS TO TRAP TO EMT VECTOR 
{UNIQUE ERROR NUMBER 
{ADDRESS UK ERROR MESSAGE 

{POINT TO EXPECTED DATA 



{BAD ACO 



{VERIFY DATA 

{BRANCH IF GOOD 

j ALL ERRORS TO TRAP TO EMT VECTOR 

{UNIQUE ERROR NUMBER 

i ADDRESS OF ERROR MESSAGE 

{SEE. IF NEED TO CHECK FEC 
{BRANCH IF NEEO TO CHECK 
{RETURN FROM TEST 



{POINT TO FEC AREA 
{SAVE FEC 

{VERIFY FEC FOR OVERFLOW 
{BRANCH IF GOOD 

{ALL ERRORS TO TRAP TO EMT VECTOR 
{UNIQUE ERROR NUMBER 
{ADDRESS OF ERROR MESSAGE 
{BAD FEC 
{RETURN FROM TEST 



i*TEST 107 TEST STCOI, STCDL 



M10 



GLOBAL AREAS 
KOJ11A.MAC 



MACY11 30AC1052) 
15-MAR-84 15:51 



15-MAR-84 

T107 



16: 



=?! 



:st 



P ^Di^ 9 



STCDL 



SEQ 0129 



6823 


034532 








6824 


034532 


005267 


144246 




6825 










6826 


034536 


005037 


001042 




6827 


034542 


004767 


000610 




6828 


034546 


000177 


000000 


000000 


6829 


034554 


000000 






6830 


034556 


000000 


177777 




6831 


034562 


007640 






6832 


034564 


007644 






6833 










6834 


034566 


005037 


001042 




6835 


034572 


004767 


000560 




6836 


034576 


100177 


177777 


177777 


6837 


034604 


177777 






6838 


034606 


000000 


000000 




6839 


034612 


007700 






6840 


034614 


007704 






6841 










6842 


034616 


005037 


001042 




6843 


034622 


004767 


000530 




6844 


034626 


020000 


000000 


000000 


6845 


034634 


000000 






6846 


034636 


000000 


000000 




6847 


034642 


000300 






6848 


034644 


000304 






6849 










6850 


034646 


005037 


001042 




6851 


034652 


004767 


000500 




6852 


034656 


140177 


177777 


000001 


6853 


034664 


000001 






6854 


034666 


000000 


000000 




6855 


034672 


007700 






6856 


034674 


007704 






6857 










6858 


034676 


005037 


001042 




6859 


034 702 


004767 


000450 




6860 


034 706 


047667 


075757 


157737 


6861 


034714 


167773 






6862 


034716 


055675 


173757 




6863 


034722 


007717 






6864 


034724 


007700 






6865 










6866 


034726 


005037 


001042 




6867 


034732 


004767 


000420 




6868 


034 736 


046400 


000000 


000000 


6869 


034744 


000000 






6870 


034746 


001000 


000000 




6871 


034 752 


007700 






6872 


0S4754 


007700 






687 5 










6874 


034 "'S6 


012737 


000001 


001042 


68 75 


034 /64 


004 767 


000366 




6876 


034 770 


077607 


000000 


000000 


b877 


034/76 


000000 






6878 


035000 


000000 


000000 





TST107: 

INC 
{1/ACO-O, INT 

CLR 

JSR 
.WORD 

.WORD 
.WORD 
. WORD 
;2/AC0*-O, LONG 
CLR 
JSR 
.WORD 



JTESTN 

StfFLAG 

R7.SCDSUB 

0177,0,0,0 

0,-1 

7640 
7644 

QtfFLAG 

R7.SCDSUB 

100177,-1,-1,-1 



i INCREMENT TEST NUMBER 



.WORD 0,0 

.WORD 7700 

.WORD 7704 
}3/EXP«100, LONG 

CLR 8*fLAG 

JSR R7,SCDSUtf 

.WORD 20000,0,0,0 

. WORD , 
.WORD 300 
. WORD 304 
{4/EXP-200, BAISED 0, INT, ROUND 



j NO INTERRUPTS 

jDO TEST 
j AGO 

j RESULT 
I TEST TPS 
} RESULT FPS 

; INTERRUPT 

jDO TEST 
lACO 

{RESULT 
j TEST FPS 
{RESULT FPS 



I NO INTERRUPT 
I DO TEST 
jACO 



! RESULT 
5 TEST FPS 
;RESULT FPS 



:5/L0NG 



ClR 

JSR 
.WORD 

.WORD 
.WORD 
.WORD 

CLR 
JSR 
.WORD 



S4FLAG {INTERRUPT 

R7.SCDSUB {DO TEST 

140177,177777,1,1 ? ACO 



0,0 

7700 

7704 



{RESULT 
j TEST FPS 
{RESULT FPS 



EWFLAG {INTERRUPT 

R7,SCDSU6 jDO TEST 

47667,757*7,157737,167773 



:AC0 



55675,173757 

7717 
7700 



.WORD 
. WORD 
.WORD 
{6/LONG, EXP«2**32 

CLR B0FLAG 

jsr R7,srnsuo 

.WORD 46400.0,0,0 

.WORD 1000,0 

.WORD 7700 

.WORD 7 700 
{7/LONG, EXP>2*+32 

MOV Ol.SOFl.Afi 

JSR R7.SCDSUB 

.WORD 77607,0,0,0 

.WORD 0,0 



iRESULT 
j TEST FPS 
{RESULT FPS 



{NO IN T ERRUPT 
{DO TEST 
lACO 



{RESULT 
I TEST FPS 

{RESULT FPS 



jINTFRRUPT 
{DO TEST 
iACO 



{RESULT 



N10 



GLOBAL 


AREAS 


MACY11 


30AU052) 15-MAR-64 16 


:58 PAGE 130 




KDJUA, 


MAC 15 -MAR -84 


15:51 




T107 


TEST STCDX, STCDL 




6879 


035004 


OC77O0 








.WORD 


7700 


I TEST FPS 


6880 


03.5006 


107705 








.WORD 


107705 


{RESULT FPS 


6881 










;8/INT, 


EXP-2**l5 




6882 


035010 


OC5037 


001042 






CLR 


bJOFLAG 


j NO INTERRUPTS 


6883 


035014 


004 76/ 


000336 






JSR 


R7,SCDSU6 


jDO TEST 


6884 


035020 


043200 


OOOOOO 


OOOOOO 




.WORD 


43200,0,0,0 


jACO 


688S 


035026 


000000 














6886 


035030 


010000 


177777 






.WORD 


10000,-1 


;RE5ULT 


688 7 


035034 


007600 








.WORD 


7600 


j TEST FPS 


6888 


035036 


007600 








.WORD 


7600 


j RESULT FPS 


6889 










;9/INT, 


E^P>2**15 




6890 


035040 


012737 


000001 


001042 




MOV 


#1,B#FL.AG 


{INTERRUPT 


6891 


035046 


004767 


000304 






JSR 


R7.SCDSU8 


iDO TEST 


6092 


035052 


077777 


177777 


177777 




.WORD 


77777,-1,-1,-1 


jACO 


6893 


035060 


177777 














6894 


035062 


oooooo 


177777 






.WORD 


0.-1 


{RESULT 


6895 


035066 


007600 








.WORD 


7600 


{ TEST FPS 


6896 


035070 


107605 








.WORD 


107605 


{RESULT FPS 


6897 










i 10//NT 


, EXP>2*+15, FID 




6898 


035072 


012737 


OOOOOO 


001042 




MOV 


aO.E.'fLAG 


{NO INTERRUPT 


6899 


035100 


004767 


000252 






JSR 


R7.SCDSUH 


;D0 TEST 


6900 


035104 


043300 


OOOOOO 


OOOOOO 




.WORD 


43300,0,0,0 


jACO 


6901 


035112 


OOOOOO 














6902 


035114 


OOOOOO 


014000 






.WORD 


0.14000 


{RESULT 


6903 


035120 


04 7700 








. WORD 


47700 


t TEST FPS 


6904 


035122 


047700 








.WORD 


4 7700 


{RESULT FPS 


6905 










{11/INT 


, EXP>2**15, HC-0 




6906 


035124 


012737 


OOOOOO 


001042 




MOV 


OO.QtffLAG 


{NO INTERRUPT 


690 7 


035132 


004767 


000220 






JSR 


R7.SCDSU8 


{DO TEST 


6908 


035136 


143300 


177777 


177777 




.WORD 


143300,-1,-1,-1 


;ACO 


6909 


035144 


177777 














69i0 


035146 


177777 


163741 






.WORD 


-1.1.63741 


{RESULT 


6911 


035152 


007300 








.WORD 


7300 


{ TEST FPS 


6912 


035154 


007310 








.WORD 


7310 


{RESULT FPS 


6913 










U2/L0NG, EXP> 


2**3;' FID 




6914 


035156 


012737 


000002 


001042 




MOV 


#2.u)*TLAG 


{INTERRUPT 


6915 


035164 


004767 


000166 






JSR 


R7.SC0SUB 


{00 TEST 


6916 


035170 


050100 


OOOOOO 


OOOOOO 




.WORD 


50100,0,0,0 


;ACO 


6917 


035176 


OOOOOO 














6918 


035200 


OOOOOO 


OOOOOO 






.WORD 


0,0 


(RESULT 


6919 


C35204 


047700 








.WORD 


47700 


, TEST FPS 


6920 


035206 


147705 








.WORD 


147705 


{RESULT FPS 


6921 










{13/LONG, EXP> 


2**32, FIC-0 




6922 


035210 


012737 


OCOOOO 


001042 




MOV 


#0,a*FL.AG 


{NO INTERRUPT 


6923 


035216 


004767 


000134 






JSR 


R7.SCDSUB 


iDO TEST 


6924 


035222 


0503 7 7 


177777 


177777 




.WORD 


50377,-1, -1,-1 


jACO 


6925 


035230 


177777 














6926 


035232 


OOOOOO 


OOOOOO 






.WORD 


0,0 


j RESULT 


6927 


035236 


007300 








.WORD 


7300 


{ TEST FPS 


6928 


035240 


007305 








.WORD 


7305 


{RESULT FPS 


6929 










{14A.0NG. LXP< 







6930 


035242 


005037 


001042 






CLR 


B#FLAG 


jNO INTERRUPTS 


6931 


035246 


004767 


000104 






JSR 


R7.SCDSUB 


{DO TEST 


6932 


035252 


100200 


177777 


177777 




.WORD 


100200, -1,-1, -1 


jACO 


6933 


035260 


177777 














6934 


035262 


OOOOOO 


OOOOOO 






.WORD 


0,0 


{RESULT 



SEQ 0130 



B 1 1 



GLCX3AI 


AR* AS 


MACU1 


50A( 105, 


KDJ11A, 


MAC 15 -MAR -84 


15:51 


6955 


055266 


007 757 




6956 


055270 


007744 




695 7 








6950 


055272 


005037 


001042 


6959 


055276 


0O4767 


0OO054 


6<>40 


055502 


057 700 


177777 


6941 


055510 


177776 




6942 


055512 


000000 


177777 


6945 


055516 


007600 




6944 


055520 


007604 




6945 








6946 


055522 


005057 


001042 


694 7 


055526 


004 767 


000024 


6946 


055552 


004577 


177777 


6949 


055540 


177 77 7 




6950 


055542 


000000 


177777 


69M 


055546 


00 7600 




695.? 


055550 


00 7604 




6955 








6954 








6955 


U35352 


000167 


000244 


6956 








695 7 








6958 








6959 








6960 








6961 








6962 








6965 








6964 








6965 








6966 








696 7 








6966 








696^ 








69 70 


055556 


012602 




6971 


055560 


012757 


035452 


697,? 


055566 


012701 


C01150 


6975 


055572 


012711 


177777 


6974 


0555 76 


012741 


177777 


6975 


035402 


012700 


000200 


6976 


055406 


170100 




69 7 7 


055410 


010204 




6978 


055412 


172414 




6979 


055414 


016200 


000014 


6960 


055420 


170100 




6981 








6982 


035422 


175411 




698 5 


035424 


17052 7 




6984 


035426 


000000 




6985 








6986 








698 7 








6968 


055450 


052757 


00000 I 


6989 


0554 5' 


00142' 




6990 


035440 


104000 





15-MrtR 84 16 
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T107 


TEST STCDI, STCDl 






.WORD 


7 75 7 


I TEST FPS 




.WORD 


7 744 


jRESULT FPS 


115/INT 


, EXP<0 








CL.R 


BOflAG 


jNO INTERRUPTS 




J5R 


R7.SCDSUB 


»D0 TEST 


7777 


.WORD 


3 7 700, -1. -1.-2 


lACO 




.WORD 


0, 1 


jRESULT 




.WORD 


7600 


i ftsr fps 




.WORD 


7604 


jRFSULT FPS 


116/INT 


, cxn*io 








CLR 


Mfl.AG 


jNO INTERRUPTS 




JSR 


R/.scosue 


iDO TEST 


7777 


.WORD 


4577, 1, -1,-1 


lACO 




.WORD 


0,-1 


1 RESULT 




.WORD 


7600 


I TEST FPS 




.WORD 


7604 


jRESULT FPS 



SEU 0131 



000244 



I 



JMP H0P21 |GET OVER SUGROUTINE 

*x*x*x*x*x*x*x*x»x*x*x*x*x*x*x*x*x«x*x*x*x*x*x*x*x*x*x»x*» 

•X»X*X*X*X*X*X«X»X*X«X*X*X*X#X«X*X*X*X*X#X*X*X*X*X*X*X*X*X 
STCDI, STCDL, STCEI, 5TCH. 

ACO 

RESULT 

FPS BEFORE EXECUTION 

FPS AFTER EXECUTION 

(FEC) 

TRAP ON CONVERSION Mil URE 
*X*X*X*X*X*X*X*X*X+X*X*X*X*X*X*X*X*X*X*X*X*X*X*X*X«X*X«X*X 

*X«X*X*X*X**«X»X*X*X*X*X»X*X*X*X*X*X*X*X*X*X*X*X*X***X*X*X 



SCDSUBi 


MOV 


(SP)»,R2 




MOV 


•50l,8*fPVf C 




MOV 


#RECDST..\R1 




MOV 


9 l.CRl ) 




MOV 


P 1, (Ri) 




MOV 


*20O.R0 




LOFPS 


RO 




MOV 


R2.R4 




I DO 


CR4),AC0 




MOV 


14(R2),R0 




LOFPS 


RO 


40*j 


STCDI 


ACu,(Rl) 


11} 


STST 


(PC)* 


i 


.WORD 






00104, 



I INSTRUCT I ON DIQNT TRAP 

HIT «l t yOf*LAG 

BIQ 2> 

ERROR 



R{ Tl«N ADDRESS TO USE AS POINTER 
RFOIRfCT TRAP VECTOR 
POINT TO RESULT ARM 
PRFIOAO RECEIVE PATA BUFFER 

SET FPS TO OOUBl E 

POINT TO ACO DATA 

I I OAO ACO 
Ge T TfSl FPS 
I OAO TEST FPS 

• TEST INSTRUCTION ACCORDING TO MOUt ^ 
WAIT FOR POSSIBIF. FPA TRAP, 
.TORE STATUS HERE, 



IVIRIM A NO TRAP CONtHUON 
I BRANCH U (,000 
|AUL tRRORS TO TRAP TO IMT VICTOR 



&3?ft.<8fc AS x^mA^m^ i5 mar t?3 7 ^hi p mo^ 



c 1 1 



STCDL 



seo 013? 



69^1 


035442 


000503 




6992 


035444 


002013 




6993 








6994 


035446 


000167 


000042 


6^95 








6996 








699 7 


035452 


032737 


000001 


6998 


035460 


001005 




6999 


035462 


104000 




7000 


035464 


000504 




7001 


035466 


002013 




7002 








7003 


0354 70 


000167 


000020 


7004 


035474 


012604 




7005 


0354 76 


005726 




7006 


035500 


022704 


035424 


7007 


035504 


001403 




7008 


035506 


104 OOO 




7009 


035510 


000505 




7010 


035512 


002013 




7011 








7012 








7013 








7014 








7015 


035514 


170205 




7016 


035516 


016200 


000016 


7017 


035522 


020003 




7018 


035524 


001403 




7019 


035526 


104000 




7020 


035530 


000506 




7021 


035532 


002013 




7022 








7023 


035534 


010204 




7024 


035536 


062704 


00O010 


7025 


035542 


004767 


144362 


7026 


035546 


005767 


143266 


7027 


035552 


001403 




7028 


035554 


104000 




7029 


035556 


000507 




7030 


035560 


002013 




7031 








7032 


035562 


005737 


0O1042 


7033 


035566 


001002 




7034 


035570 


000162 


0OO020 


7035 








7036 


035574 


012704 


001106 


7037 


03S600 


170314 




7038 


035602 


021427 


000006 


7039 


035606 


001403 




7040 


035610 


104000 




7041 


035612 


000510 




7042 


035614 


002013 




704 3 








7044 


035616 


000162 


000020 


7045 








7046 


055622 







.WORD 
.WORD 

JMP 



503 
FPPERR 

2% 



001042 



i INSTRUCTION TRAPPED 



50*j 


BIT 


Ol.UOFLAG 




BNE 


51* 




ERROR 






.WORD 


504 




.WORD 


FPPERR 




JMP 


21 


5Hi 


MOV 


CSP)*.R4 




TST 


(SP)* 




CMP 


*1$,R4 




BEQ 


2% 




ERROR 






.WORD 


505 




.WORD 


FPPERR 


j COMMON 


COOE FOR TRAP AND 1 


i VERIFY 


STATUS 




2*1 


STFPS 


R5 




MOV 


16CR2),R0 




CMP 


R0 t R3 




BEQ 


3» 




ERROR 






.WORD 


506 




.WORD 


FPPERR 


3$r 


MOV 


R2.R4 




ADO 


*10,R4 


4$; 


JSR 


R7.DATVFR 




TST 


COUNT 




BEQ 


51 




ERROR 






.WORD 


50/ 




.WORD 


FPPERR 


5): 


TST 


QV>FLAG 




BNE 


!% 




JMP 


20( RP ) 


jVFRIFY 


F EC 




71: 


MOV 


ORKF EC.R4 




STST 


(R4) 




CMP 


(R4),06 




BEQ 


81 




ERROR 






.WORD 


510 




.WORD 


FPPERR 



{UNIQUE ERROR NUMBER 
lAOORESS OF ERROU MESSAGE 
I INSTRUCTION SHOULD HAVE TRAPPED 
jREJOIN COOE 



j SEE IF EXPECTING A TRAP 
iBRANCH IF EXPECTING A TRAP 
I ALL ERRORS TO TRAP TO F.MT VECTOR 
I UNIQUE ERROR NJM8ER 
» ADDRESS OF ERROR MESSAGE 
l INSTRUCT ION WASNT SUPPOSE TO TRAP 
iREJOIN COOF 

iSEE IF PC - INSTRUCTION 
j CLEAN UP STACK 

i 

jBRANCH IF GOOD COMPARE 
jALL ERRORS TO TRAP TO CMT VECTOR 
lUNIQUE ERROR NUMBER 
j ADDRESS OF ERROR MESSAGE 
i PC WAS INCORRECT 



NO TRAP 



iBAD FPS 



jSAVE FPS 

jGET EXPECTED STATUS 
iVERIFY STATUS 
j BRANCH IF GOOO 

l ALL ERRORS TO TRAP TO EMT VECTOR 
lUNIQUE ERROR NUMBER 
j ADDRESS OF ERROR MESSAGE 

jPOINT TO EXPECTED DATA 



iVERIFY DATA 

j BRANCH IF GOOO 

lALL ERRORS TO TRAP TO EMT VECUV 

lUNIQUE ERROR NUMBER 

» ADDRESS OT ERROR MESSAGE 



M0P21 



JMP 



20CR2) 



jBAD ACO 

I SEE IF NEED TO CHECK FEC 
iBRANCH IF NfcEO TO CHECK 
jRETURN FROM TEST 

iPOINT TO FEC AREA 
jSAVE FEC 

IVERIFY FEC FOR OVERFLOW 
j BRANCH IF GOOD 

i ALL ERRORS TO TRm^ TO EMT VECTOR 
iLHIQUE ERROR NUMBER 
jADDRfc5S OF ERROR MESSAGE 
iBAD FEC 
{RETURN ^RUM TEST 



Sb8?M£ AS 



^m^rn^ is MflR T?a 7 ib --^ p m^ s 



o 1 1 



STCDl. 



SEQ 0133 



;o4 ; 

7046 035622 



704 9 








7050 








7051 








7052 


035622 






7053 


035622 


005267 


143156 


7054 








7055 


035626 


005037 


001042 


7056 


035632 


004 767 


177520 


7057 


035636 


044541 


052525 177777 


7058 


035644 


177777 




7059 


035646 


000003 


102525 


7060 


035652 


007517 




7061 


035654 


007500 




706? 








7063 


035656 


00503 7 


001042 


7064 


035662 


004767 


177470 


7065 


035666 


002300 


177777 177777 


7066 


035674 


177777 




7067 


035676 


000000 


177777 


7068 


035702 


007400 




7069 


035704 


007404 




7070 








7071 


035706 


012737 


000001 001042 


7072 


035714 


004 767 


177436 


7073 


035720 


070000 


177777 177777 


7074 


035726 


177777 




7075 


035730 


000000 


000000 


7076 


035734 


007540 




7071 


035736 


107545 




7078 








7079 


035740 


005037 


001042 


7080 


035744 


004767 


177406 


7081 


035750 


0520O0 


000000 177777 


7082 


035756 


177777 




7083 


035760 


000000 


177777 


7084 


035764 


047COO 




7085 


035766 


047005 




7086 








708 7 








7068 








70£9 


035770 






7090 








7091 








7092 








7093 


035770 






7094 


035770 


005267 


143010 


7095 








7096 


0357 74 


004767 


000154 


709/ 


036000 


020000 


000000 000000 


7098 


036006 


000000 




7099 


036010 


177700 




7100 


036012 


00 7 740 




7101 


036014 


007750 




7102 









I ♦TEST 110 TEST STCFI, STCFL 

TST110: 

INC ITESTN } INCREMENT TEST NUMBER 

jl/LONG EXP -30 

CLR 

JSR 

.WORD 

.WORD 
.WORD 
.WORD 
(2/INT, EXP<0 
CLR 
JSR 
.WORD 



QOFL.AG | NO INTERRUPTS 

R7.SCDSUB |00 TEST 

44541,52525, -1, -1 ( ACO 



3.102525 

7517 

7500 

SOFLAG 
R7.SCDSUC 
2300,-1,-1, -1 



.WORD 0,-1 

.WORD 7400 

.WORD 7404 
j3/L0NG, EXP>>2*+32 

MOV *i,0*FLAG 

JSR R7.SCDSU6 

.WORD 70000, -1,-1,-1 

. WORD , 

.WORD 7540 

.WORD 107545 

j4/INT,EXP-5, FIC-O, FIO-1 

CLR 8*fLAG 

JSR R7.SCDSU6 

.WORD 52000,0,-1, -1 



.WORD 
.WORD 
.WORD 



0,-1 
4 7000 
47005 



(RESULT 
j TEST FPS 
iRESULT FPS 

I NO INTERRUPTS 

iDO TEST 
IMCO 

iRESULT 
} TEST FPS 
iRESULT FPS 

INTERRUPT 
(DO TEST 
|ACO 

j RESULT 

I TEST FPS 

(RESULT FPS 

(NO INTERRUPTS 

(DO TEST 
}ACO 

l RE S'X T 

( TEST FPS 

(RESULT FPS 



* * 



MSXP: 

{♦TEST 111 TEST STEXP 

TST111: 

INC ITESTN (INCREMENT TEST NUMBER 

ll/EXP-100 

JSR R7.SXPSUB 

.WORD 20000,0,0,0 

. WORD • 100 

.WORD 7740 

.WORD 7 750 
(2/EXP-201 FLOAT, NEG 



iDO TEST 

(ACQ 



(RESULT 
I TEST FPS 
(RESUL T FPS 



Ell 



GLOBAL ARF.AS 

KDJ11A.MAC 



MACU1 30AC1052) 
15-MAR-84 15:51 



15-MAR-64 
Till 



16 {58 PAGE 134 
TEST STEXP 



SEQ 0134 



7103 
7104 
7105 
7106 
7107 
7108 
7109 
7110 
7111 
7112 
7113 
7114 
7115 
7116 
7117 
7118 
7119 
7120 
7121 
7122 
7123 
7124 
7125 
7126 
7127 
7128 
7129 
7130 
7131 
7132 
7133 
7134 
7135 
7136 
7137 
7138 
7139 
7140 
7141 
7142 
7143 
7144 
7145 
7146 
7147 
7148 
7149 
7150 
7151 
7152 
7153 
7154 
7155 
7156 
7157 
7158 



036016 
036022 
036030 
036032 
036034 
036036 

036040 
036044 
036052 
036054 
036056 
036060 

036062 
036066 
036074 
036076 
036100 
036102 

036104 
036110 
036116 
036120 
036122 
036124 

036126 
036132 
036 140 
036142 
036144 
036146 



036154 
036156 
036164 
036170 
036174 
036176 
036200 



004 76 7 
140377 
000000 
000001 
007500 
007500 

004/67 
000177 
177777 
177600 
007700 
007710 

004 767 
020000 
177777 
177700 
040200 
040210 

004767 
040000 
000000 
000000 
007700 
007704 

004767 
000177 

177777 
17 7600 
000000 
000010 



012602 
012737 

012701 
012700 

170100 
010204 
172414 



000132 

177777 177777 



000110 

177777 177777 



{3/EXP 



000066 

000000 177777 



{4/EXP 



JSR 
.WORD 

.WORD 
.WORD 
.WORD 
-177 
JSR 
.WORD 

.WORD 

.WORD 
.WORD 
-100 
JSR 
.WORD 



000044 

000000 000000 



.WORD 
.WORD 
.WORD 
{5/EXP-200 
JSR 
.WORD 



R7.SXPSU8 
140377,-1,-1,0 

1 

7500 

7500 

R7.SXPSUB 
177,-1,-1,-1 

177600 

7700 

7710 

R7,SXPSU6 
20000 ,0,-1,-1 

-100 

40200 

40210 

R/.sxpsue 

40000,0,0,0 



jDO TEST 
jACO 



{RESULT 

i TEST EPS 

{RESULT FPS 



1 00 TEST 
jACO 



{RESULT 
j TEST FPS 
iRESULT FPS 



I DO TEST 
lACO 



{RESULT 

; TEST FPS 

{RESULT FPS 



;00 TEST 

jACO 



000022 

177777 177777 



{6/EXP-O 



.WORD 
.WORD 
.WORD 

JSR 
.WORD 





7700 
7 704 



{RESULT 



jRESUL 
j TEST 
FPS 



FPS 



R7.SXPSU6 
177,-1,-1,-1 



;00 TEST 
•ACO 



.WORD 177600 
.WORD 
. WORD 10 



{RESULT 
t TEST FPS 
{RESULT FPS 



i 



036150 000167 000120 



JMP H0P22 {GET OVER SUBROUTINE 

♦X*X*X*X*X*X*X»X*X+X»X*X*X»X#X»X*X*X*X*X*X*X*X*X*X*X*X*X*X 
♦X*X*X*X*X*X*X*X*XAX*X*X*X*X*X*X*X*X*X*X*X*X*X*X*X*X*X*X*X 
STEXP 

ACO 

EXPONENT RESULT 

FPS BEFORE EXECUTION 

FPS AFTER EXECUTION 

NO TRAPS CAN OCCUR 

*X*X*X*X*X*X*X*X*X*X*X*X*X*X*X*X*X*X*X*X*X*X*X*X*X*X*X«X*X 

tOUX*X*X*X*X*X*X*X*X*X*X*X*X*X*X*X*X*X*X*X*X*X*X*X*X*X*X*X 



036256 
001126 
000200 



000244 



SXPSUB: 


MOV 


(SP)>,R2 




MOV 


*50<,a*FPVEC 




MOV 


*RECDST,R1 




MOV 


0200.R0 




LDFPS 


RO 




MOV 


R2.R4 




LDD 


(R4),AC0 



{ RETURN ADDRESS TO USE AS POINTER 
{REDIRECT TRAP VECTOR 
{POINT TO RESULT AREA 
{SET FPS TO DOUBLE 

{POINT TO ACO DATA 
{LOAD ACO 



GLOBAL AREAS 
KDJUA.MAC 



Fll 



MACU1 30AC1052) 
15 -MAR 84 15 5 51 



15-MAR-84 16{58 PAGE 135 
Till TEST STEXP 



SEQ 0135 



7159 
7160 

7161 
7162 
7163 
7164 
7165 
7166 
7167 
7168 
7169 
7170 
7171 
7172 
7173 
7174 
7175 
7176 
7177 
7178 
7179 
7180 
7181 
7182 
7183 
7184 
7185 
7186 
7187 
7188 
7189 
7190 
7191 
7192 
7193 
7194 



036202 
036206 



016200 
170100 



000012 



036210 175011 



036212 
036214 
036220 
036222 
036224 
036226 
036230 

036232 
036236 
036242 
036244 
036246 
036250 



036256 
036260 
036262 
036264 
036266 



170203 
016200 
020005 
001403 
104000 
000511 
002013 

016204 
020437 
001403 
1O4000 
000512 
002013 



012600 
012605 
104000 
000513 
002013 



000014 



000010 
001126 



036252 000162 000016 





MOV 


12(R2),R0 








LDFPS 


RO 






40$; 


STEXP 


ACO.(Rl) 






! VERIFY 


STATUS 








2$: 


STFPS 

MOV 

CMP 

BEQ 

ERROR 

.WORD 

.WORD 


R3 

14CR2),R0 

R0.R3 

3$ 

511 
FPPERR 


iBAD 


FPS 


3$j 


MOV 

CMP 

BEQ 

ERROR 

.WORD 

.WORD 


10CR2),R4 

R4.80RECD5T 

5$ 

512 
FPPERR 


j SAD 


ACO 


5i: 


JMP 


16CR2) 






S INSTRUCTION TRAPPED 






50$: 


MOV 
MOV 
ERROR 
. WORD 
.WORD 


CSP)*,RO 
(SP)f ,R5 

513 

FPPERR 







036270 000167 177756 



036274 



JMP 



5$ 



{GET TEST FPS 
{LOAD TEST FPS 

j*TEST INSTRUCTION ACCORDING TO MODE) 



j SAVE FPS 

{GET EXPECTED STATUS 
{VERIFY STATUS 
i BRANCH IF GOOD 

jALL ERRORS TO TRAP TO EMT VECTOR 
j UNIQUE ERROR NUMBER 
{ADDRESS OF ERROR MESSAGE 

{POINT TO EXPECTED EXPONENT 

{VERIFY EXPONENT 

{BRANCH IF GOOD 

{ALL ERRORS TO TRAP TO EMT VECTOR 

i UNIQUE ERROR NUMBER 

{ADDRESS OF ERROR MESSAGE 

{RETURN FROM TEST 



{SAVE PC 
{SAVE OLD PS 

{ALL ERRORS TO TRAP TO EMT VECTOR 
jlNIQUE E.^ROR NUMBER 
{ADDRESS OF ERROR MESSAGE 
{WILD TRAP DURING STEXP 
{REJOIN CODE 



H0P22: 



Gil 



GLOBAL AREAS 
KDJ11A.MAC 



7195 
7196 
7197 
7193 
7199 
7200 
7201 
7202 
7203 
7204 
7205 
7206 
7207 
7208 
7209 
7210 
7211 
7212 
7213 
7214 
7215 
7216 
7217 
7218 
7219 
7220 
7221 
7222 
7223 
7224 
7225 
7226 
7227 
7228 
7229 
7230 
7231 
7232 
7233 
7234 
7235 
7236 
7237 
7238 
7239 
7240 
7241 
7242 
724 3 
7244 



MACU1 30AC1052) 
15 -MAR -84 15:51 



15-MAR-84 

Till 



16:58 PAGE 136 
TEST STEXP 



SEQ 0136 



7245 
7246 
7247 
7248 
7249 
7250 



036274 
036274 
036300 
036302 
036306 
036306 
036312 
036320 
036322 
036324 
036326 
036330 
036332 
036334 
036340 
036344 
036346 
036352 
036356 
036360 
036362 
036364 
036366 
036370 
036372 
036372 

0363 74 
036376 

036402 
036410 
036416 
036424 
036432 
036440 
036446 
036454 
036456 
036464 

0364 72 
036500 



005767 
001002 
104401 

005267 
042767 
0C5327 
000001 
003022 
012737 
000001 
036322 
104401 
016746 
104405 
104401 
013700 
001405 
000005 
004710 
000240 
000240 
000240 

000137 
002410 
377 
036402 
005015 
026514 
042113 
046106 
043516 
052116 
047107 
000103 
005015 
041114 
050040 
000043 



142506 

036402 

142474 
100000 



036456 
142442 

036376 
000042 



377 

055103 
026502 
030512 
040517 
050040 
042040 
051517 

055103 
042440 
051501 



142466 



000 

042113 
020060 
020061 
044524 
044517 
040511 
044524 

042113 
042116 
020123 



.MCALL IDMSG.ENDPAS 

.SBTTL END OF PASS ROUTINE 

{♦INCREMENT THE PASS NUMBER ($PASS) 

{♦INDICATE ENO -OF -PROGRAM AFTER 1 PASSES THRU THE PROGRAM 

{♦IF THERES A MONITOR GO TO IT 

{♦IF THERE ISN'T JUMP TO RESTART 



$EOP: 

SKIPIO: 

$EOPCT : 
$ENOCT; 



$GET42: 
$ END AD: 

SDOAGN: 

JRTNAD: 
$F.NULL: 

MSG1: 



MSG2: 



EVEN 
SBTTL 



TST 
BNE 
TYPE 

INC 

BIC 

DEC 

.WORD 

BGT 

MOV 

.WORD 

iEOPCT 

TYPE 

MOV 

TYPDS 

TYPE 

MOV 

BEQ 

RESET 

JSR 

NOP 

NOP 

NOP 

JMP 

.WORD 

. r YTE 

.EVEN 

.ASCIZ 



$PASS 

SKIPID 

,MSG3 

iPASS 
0100000, $PASS 

(PC)* 

1 

JDOAGN 

CPC)*,a(PC)» 

i 

,MSG2 
JPASS.-CSP) 

,*ENULL 
S042.R0 

IDOAGN 

PC,(RO) 



{ONLY TYPE MESSAGE AT END OF FIRST PASS 
{IF >0 THEN SKIP THE ID MESSAGE 
{ELSE TYPE THE ID MESSAGE 

{{INCREMENT THE PASS NUMBER 
jjDON'T ALLOW A NEG. NUMBER 
j {LOOP? 

Y (P C 

I {RESTORE COUNTER 



t {SAVE JPASS FOR TYPEOUT 

{{GO TYPE--DECIMAL ASCII WITH SIGN 

{{GET MONITOR ADDRESS 
{{BRANCH IF no MONITOR 
j {CLEAR THE WORLD 
{{GO TO MONITOR 
{{SAVE ROOM 
ilFOR 
5 jACTU 



SCPC)» 

RESTART 

-1,-1.0 



{{hETURN 

{{NULL CHARACTER STRING 
<CR><LF>/CZKDL-B-0 KDJ11 FLOATING POINT DIAGNOSTIC/ 



.ASCI/ <CR><LF>/CZKDLB END PASS 0/ 



fYPF ROUTINE 



♦ ROUTINE TO TYPE ASCIZ MESSAGE, MESSAGE MUST TERMINATE WITH A BH Tt. . 
♦THE ROUTINE WILL INSERT A NUMBER OF NULL CHARACTERS AFTER A LINE FEED 



Hll 



GLOBAL AREAS 
KDJUA.MAC 



MACY11 30AC1052) 
15-MAR-84 15;51 



15 -MAR -84 
TYPE 



m 



;ne 



PAGE 137 



5EQ 0137 



7251 

7252 
7253 
7254 
7255 
7256 
7257 
7258 
7259 
7260 
7261 
7262 
7263 
7264 
7265 
7266 
7267 
7268 
7269 
7270 
7271 
72 72 
7273 
7274 
7275 
7276 
7277 
7278 
7279 
7280 
7281 
7282 
7283 
7284 
7285 
7286 
7287 
7288 
7289 
7290 
7291 
7292 
7293 
7294 
7295 
7296 
7297 
7298 
7299 
7 300 
7301 
7 302 
7303 
7304 
7305 
7306 



036502 
036506 
036510 
036512 
036514 
036516 
036522 
036530 
036532 
036540 
036542 
036546 
036552 
036554 
036562 
036564 
036566 
036570 
036572 
036574 
036600 
036602 
036606 
036610 
036614 
036616 
036620 
036622 
036624 
036630 
036632 
036636 
036642 
036644 

036650 
036654 
036656 
036662 
036666 



105767 
100002 
000000 
000430 
010046 
017600 
122767 
001011 
132767 
001405 
010067 
004767 
OOOOOO 
132767 
001003 
112046 
001005 
005726 
012600 
062716 
000O02 
122716 
001430 
122716 
001006 
005726 
104401 
00207 7 
105067 
000755 
004767 
126726 
O01350 
016746 

105366 
002770 
004 76 7 
105367 
000770 



000343 



000002 
000001 

000100 

000004 
001034 

000040 



000002 
000011 
000200 

000202 

000056 
000206 

000176 

000001 

000032 
000144 



{♦N0TE1 
i*N0TE2 

i*N0TE3 

{* 

t*CALL: 

1*1) US 

J + 

;*0R 

J* 

J* 

;* 

$TYPE; 



1*: 



$NULL CONTAINS THE CHARACTER TO BE USED AS THE FILLER CHARACTER 
SPILLS CONTAINS THE NUMBER OF TILLER CHARACTERS REQUIRED. 
*FILLC CONTAINS THE CHARACTER TO FILL AFTER. 



142270 
142261 



61* 

142237 62$ 



2$: 



60$ 
3$; 

4$: 



5$ 
6$ 



7$ 



ING A TRAP INSTRUCTION 
TYPE .MESAOR 

TYPE 
MESAOR 



TSTB 

BPL 

HALT 

BR 

MOV 

MOV 

CMPB 

BNE 

BITB 

BEQ 

MOV 

JSR 

.WORD 

BITB 

BNE 

MOVB 

BNE 

TST 

MOV 

ADD 

RTI 

CMPB 

BEQ 

CMPB 

BNE 

TST 

TYPE 

$CRLF 

CLRB 

BR 

JSR 

CMPB 

BNE 

MOV 

DECB 

BLT 

JSR 

DECB 

BR 



$TPFLG 
1$ 

3$ 

RO.-CSP) 

S2CSP),R0 

*APTENV,$ENV 

62$ 

JAPTSPOOL,$ENVM 

62$ 

R0.61* 

PC.SATY3 



tfAPTCSUP, $£NVM 

60$ 

(RO)*,-(SP) 

4$ 

CSP)* 
<SP)*.RO 

*2,CSP) 

OHT,(SP) 

8$ 

OCRLF,(SP) 

5$ 

(SP)* 



iCHARCNT 

2$ 

PC, tTYPEC 

•FILLC.CSP)* 

2$ 

tNULL.-CSP) 

KSP) 
6$ 

PC,$TYPEC 

ICHARCNT 

7$ 



UMESAOR IS FIRST ADDRESS OF AN ASCIZ STRING 



036670 112716 000040 



j HORIZONTAL TAB PROCESSOR 
8$: MOVB <?' ,(SP) 



j {IS THERE A TERMINAL? 

; {BR IF YES 

{{HALT HERE IF NO TERMINAL 

I {LEAVE 

{ {SAVE RO 

{{GET ADDRESS OF ASCIZ STRING 

{{RUNNING IN APT MODE 

liNC.GO CHECK FOR APT CONSOLE 

j {SPOOL MESSAGE TO APT 

{{NO, GO CHECK FOR CONSOLE 

; {SETUP MESSAGE ADDRESS FOR APT 

{{SPOOL MESSAGE TO APT 

j {MESSAGE ADDRESS 

j {APT CONSOLE SUPPRESSED 

j {YES, SKIP TYPE OUT 

j {PUSH CHARACTER TO BE TYPED ONTO STACK 

j {BR IF IT ISN'T THE TERMINATOR 

{{IF TERMINATOR POP IT OFF THE STACK 

{{RESTORE RO 

{ {ADJUST RETURN PC 

{ {RETURN 

j {BRANCH IF <HT> 

{{BRANCH IF NOT <CRLF^ 

j {POP <CR><LF> EQUIV 
jjTYPE A CR AND LF 

j {CLEAR CHARACTER COUNT 

{ iGET NEXT CHARACTER 

{{GO TYPE THIS CHARACTER 

{{IS IT TIME FOR FILLER CHARS.? 

I I IF NO GO GET NEXT CHAR. 

jlGET t> OF FILLER CHARS. NEEDED 

{ jANO THE NULL CHAR. 

jiDOES A NULL NEED TO BE T^PLD? 

jjBR IF NO- -GO POP THE NULL OFF OF STACK 

j jGO TYPE A NULL. 

{{DO NOT COUNT AS A COUNT 

j ;LOOP 



{ {REPLACE TAB WITH SPACE 



GLOBAL AREAS 
KDJ11A.MAC 



MACU1 30AC1052) 
15-MAR-84 15:51 



111 



15 -MAR -84 
TYPE 



km 



NE 



PAGE 138 



SEQ 0138 



730 7 
7308 
7309 

7310 
7311 
7312 
7313 
7314 
7315 
7316 
7317 
7318 
7319 
7320 
7321 

i Ot_c 

7323 
7324 
7325 
7326 
7327 
7328 
7329 
7330 
7331 
7332 
7333 
7334 
7335 
7336 
7337 
7330 
7339 
7340 
7341 
7342 
7343 
7344 
7345 
7346 
7347 
7348 
7349 
7350 
7351 
7352 
7353 
7354 
7355 
7356 
7357 
7 358 
7 359 
7 360 
7361 
7362 



036674 
036700 
036706 
036710 
036712 
036714 
036714 
036720 
036722 
036726 
036732 
036736 
036740 
036740 
036744 
036746 
036752 
036756 
036762 
036764 
036764 
036766 
036766 
036772 
0367 74 
037002 
037010 
037012 
037016 
037020 
037026 
037030 
037032 
037034 

037036 
037040 
037042 
03 7044 

037046 
037047 
037050 
037051 
03 7052 
037053 



004 76 7 
132767 
001372 
005726 
000724 

105777 
100022 
017746 
042716 
122716 
001012 

105777 
100375 
117716 
042716 
122716 
001366 

005726 

105777 
100375 
116677 
i22766 
001003 
105067 
000406 
122766 
001402 
105227 
000000 
000207 

17 7560 

177562 

177564 

177566 

000 

002 

012 

000 

077 

012 

037056 



000014 

000007 000124 



000116 



000112 
177600 
000023 



00OO72 

000066 
177600 
000021 



000050 

000002 000042 
000015 000002 

000014 

000012 000002 



000 



9$ 



$TYPEC: 



101* 



102* 
10$: 



JSR 

BITB 

BNE 

TST 

BR 

TSTB 

BPL 

MOV 

BIC 

CMPB 

BNE 

TSTB 

BPL. 

MOVB 

BIC 

CMPB 

BNE 

TST 



TSTB 
BPL 
MOVB 
CMPB 
BNE 
CLRB 
BR 
1$: CMPB 
BEQ 
INCB 
JCHARCNT: .WORD 
•TYPEXx RTS 



$TKS 

$TKB 

$TPS 

$TPB 

$NULLt 

t F ILLS 

»FILLC 

JTPFLG 

$QUES: 

$LF- 

.S8TTL 



.WORD 

.WORD 

.WORD 

.WORD 

.BYTE 

.BYTE 

.BYTE 

.BYTE 

.ASCII 

.ASCIZ 

.EVEN 

CONVERT 



PC,$TYPEC 

*7,$CHARCNT 

9$ 

CSP)f 

2$ 

BITKS 

10$ 

QITKB, (SP) 

0177600, CSP) 

*$XOFF,(SP) 

102$ 

8$TKS 

101$ 

B*TK8,CSP) 

0177600, CSP) 

*$XON,(SP) 

101$ 

(SP)> 

s$tps 

10$ 

2CSP),S$TPB 

0CR,2(SP) 

1$ 

♦CHARCNT 

$TYPEX 

•LF.2CSP) 

$TYPEX 
CPC)* 

PC 

177560 

177562 

17 7564 

17 7566 



2 

12 


1.7.. 

<12> 



t j TYPE A SPACE 

; {BRANCH IF NOT AT 

j j TAB STOP 

j jPOP SPACE OFF STACK 

1 jGET NEXT CHARACTER 

llCHAR IN KYBD BUFFER? 

1 1 BR IF NOT 

I l GET CHAR 

{{STRIP EXTRANEOUS BITS 

I {WAS CHAR XOFF 

; {BR IF NOT 

I {WAIT FOR CHAR 

{ jGET CHAR 
{{STRIP IT 
{ {WAS IT XON? 
{ {BR IF NOT 

{ {FIX STACK 

{{WAIT UNTIL PRINTER IS READY 

{{LOAD CHAR TO BE TYPED INTO DATA REG 

}{1S CHARACTER A CARRIAGE RETURN? 

j {BRANCH IF NO 

i j YES- -CLEAR CHARACTER COUNT 

{{EXIT 

{{IS CHARACTER A LINE FEED? 

1 {BRANCH IF YES 

} {COUNT THE CHARACTER 

i {CHARACTER COUNT STORAGE 



l {TTY KDB S1ATUS {MJD001 
jjTIY K3D BUFFER {MJ0001 
{{TTY PRINTER STATUS REG. ADDRESS 
j {TTY PRINTER BUFFER REG. ADDRESS 
{{CONTAINS NULL CHARACTER FOR FILLS 
{{CONTAINS ♦ OF FILLER CHARACTERS REQUIRED 
, {INSERT f ILL CHARS. AFTER A "LINE FEED" 
{{"TERMINAL AVAILABLE" FLAG (BIT<07> *0*YES ) 
{ {UUtSTION MARK 
j {LINEFEED 



MJD001 
MJD001 
MJD001 
MJD001 
MJD001 
MJD001 
MJD001 
MJD001 
MJD001 
MJD001 
MJD001 
MJD001 
MJD001 
MJD001 
MJD001 
jMJDOOl 

5MJDOOI 



BINARY TO DECIMAL ANO TYPE ROUTINE 



{♦THIS ROUTINE IS USED TO CHANGE A 16-BIT BINARY NUMBER TO A 5-DIGIT 

{♦SIGNED DECIMAL (ASCII) NUMBER AND T YPE IT. DEPENDING ON WHETHER THE 

{♦NUMBER IS POSITIVE OR NEGATIVE A SPACE OR A MINUS SIGN WILL BE TYPED 

{♦BEFORE THE FIRST DIGIT OF THE NUMBER. LEADING ZEROS WILL ALWAYS BE 

{♦REPLACED WITH SPACES. 

j ♦CALL: 

{♦ MOV NUM.-(SP) {{PUT THE BINARY NUMBER ON THE STACK 



J 1 1 



GLOBAL 


ARFAS 


MACU1 


30AC1052) 15-M 


KDJ11A. 


MAC lb-MAR-84 


15:51 


7363 








7364 








7365 


037056 






7366 


037056 


010046 




7367 


037060 


010146 




7368 


037062 


010246 




7369 


037064 


010346 




7370 


037066 


010546 




7371 


037070 


012746 


020200 


7372 


037074 


016605 


000020 


7373 


037100 


100004 




7374 


037102 


005405 




7375 


037104 


112766 


000055 000001 


7376 


037112 


005000 




7377 


037114 


012703 


037272 


7378 


037120 


112723 


000040 


7379 


037124 


005002 




7380 


037126 


016001 


037262 


7361 


037132 


160105 




738? 


037134 


002402 




7383 


037136 


005202 




7384 


037140 


000774 




7385 


037142 


060105 




7386 


037144 


005702 




7387 


037146 


001002 




7388 


037150 


105716 




7389 


037152 


100407 




7390 


037154 


106316 




7391 


037156 


103003 




7392 


037160 


116663 


000001 177777 


7393 


037166 


052702 


000060 


7394 


037172 


052702 


000040 


7395 


037176 


110223 




7396 


037200 


005720 




7397 


037202 


020027 


000010 


7398 


037206 


002746 




7399 


037210 


003002 




7400 


037212 


010502 




7401 


037214 


000764 




7402 


037216 


105726 




7403 


037220 


100003 




7404 


C37222 


116663 


177777 177776 


7405 


037230 


105013 




7406 


037232 


012605 




7407 


037234 


012603 




7408 


037236 


012602 




7409 


037240 


012601 




7410 


037242 


012600 




7411 


037244 


104401 


037272 


7412 


037250 


016666 


000002 000004 


7413 


037256 


012616 




7414 


037260 


000002 




7415 


037262 


023420 




7416 


037264 


001750 




7417 


03 7266 


000144 




7418 


037270 


000012 
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CONVERT BINARY TO DECIMAL AND TYPE ROUTINE 



5EQ 0139 



;* 
$TYPDS 



1$: 

2$: 
3$: 

4$: 
5$; 



6*: 
7$: 



8$: 



9$ j 



*DTBL 



TYPDS 



MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

BPL 

NEG 

MOVB 

CLR 

MOV 

MOVB 

CLR 

MOV 

SUB 

BLT 

INC 

BR 

ADO 

TST 

BNE 

TSTB 

BMI 

ASLB 

BCC 

MOVB 

BIS 

BIS 

MOVB 

TST 

CMP 

BLT 

BGT 

MOV 

BR 

TSTB 

BPL 

MOVB 

CLRB 

MOV 

MOV 

MOV 

MOV 

MOV 

TYPE 

MOV 

MOV 

RTI 

10000. 

1000. 

100. 

10. 



R0,-CSP) 

Rl.-(SP) 

R2.-CSP) 

R3 # -CSP) 

R5.-CSP) 

$20200, -(SP) 

20(SP),R5 

1* 

R5 

#' -,1CSP) 

RO 

0*DBLK,R3 

** ,(R3)* 

R2 

iDTBL(RO),Rl 

R1.R5 

4$ 

R2 

3* 

R1.R5 

R2 

5$ 

(SP) 

71 

(SP) 

6* 

1CSP),-1CR3) 

*'0,R2 

<T ,R2 

R2,(R3)f 

(RO)* 

R0.410 

2$ 

8$ 

R5.R2 

6$ 

(SP)* 

9i 

-1(SP).-2(R3) 

(R3) 

(SP)*,R5 

(SP)*,R3 

CSP)f ,R2 

(SP)*,R1 

(SP)*,RO 

, IDBLK 

2(SP).4(SP) 

CSP)*.(SP) 



} jGO TO THE ROUTINE 



jPUSH RO ON STACK 

{PUSH Rl ON STACK 

j PUSH R2 ON STACK 

I PUSH R3 ON STACK 

i PUSH R5 ON STACK 

{SET BLANK SWITCH AND SIGN 

;GET THE INPUT NUMBER 

;BR IF INPUT IS POS. 

{MAKE THE BINARY NUMBER POS. 

{MAKE THE ASCII NUMBER NEG. 

{ZERO THE CONSENTS INDEX 

{SETUP THE OUTi'UT POINTER 

{SET THE FIRST CHARACTER TO A BLANK 

{CLEAR THE BCD NUMBER 

{GET THE CONSTANT 

{FORM THIS BCD DIGIT 

{BR IF DONE 

{INCREASE THE BCD DIGIT by 1 



ADD BACK THE CONSTANT 

CHECK IF BCD DIGIT-0 

FALL THROUGH IF 

STILL DOING LEADING 1.? 

BR IF YES 

MSD? 

BR IF NO 

YES --SET THE SIGN 

MAKE THE BCD OIGIV AS^/I 

MAKE IT A SPACE IF NO I ALREADY A DIGIT 

PUT THIS CHARACTER IN TrtE OUTPUT BUFFER 

JUST INCREMENTING 

CHECK THE TABLE TM3EX 

GO DO THE NEXT DI^IT 

GO TO EXIT 

GET THE LSD 

GO CHANGE TO ASCII 

WAS THE LSD THE FIRST NON-ZERO? 

BR IF NO 

YES- -SET THE SIGN FOR TYPING 

SET THE TERMINATOR 

POP STACK INTO R5 

POP STACK INTO R3 

POP STACK INTO R2 

POP STACK INTO Rl 

POP STACK INTO RO 

NOW TYPE THE NUMBER 

ADJUST THE STACK 



i {RETURN TO USER 



GLOBAL 


AREAS 


MACYll 


30AC1052) 


KDJ11A, 


MAC 15-MAR-84 


15:51 


7475 


037442 


001403 




7476 


037444 


005204 




7477 


037446 


052703 


000060 


7478 


037452 


052 703 


000040 


7479 


037456 


110367 


000040 


7480 


037462 


104401 


037522 


7481 


037466 


105367 


000032 


7482 


037472 


003347 




7483 


037474 


002402 




7484 


037476 


005204 




7485 


037500 


000744 




7486 


037502 


012605 




7487 


037504 


012604 




7488 


037506 


012603 




7489 


037510 


016666 


000002 


7490 


037516 


012616 




7491 


037520 


000002 




7492 


037522 


000 




7493 


037523 


000 




7494 


037524 


000 




7495 


037525 


000 




7496 


037526 


000000 




7497 








7498 








7499 








7500 








7501 








7502 








7503 








7504 








7505 


037530 


010046 




7506 


037532 


016600 


000002 


7507 


037536 


005740 




7508 


037540 


111000 




7509 


037542 


006300 




751C 


037544 


016000 


037564 


7511 


037550 


000200 




7512 








7513 








7514 








7515 








7516 


037552 


011646 




7517 


037554 


016666 


000004 


7516 


037562 


000002 




7519 








7520 








7521 








7522 








7523 








7524 








7525 








7526 








752/ 








7528 








7529 








7530 
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BINARY TO OCTAL (ASCII) 



Lll 



AND TYPE 



SEQ 0141 



000004 



000002 





BEG 


5* j 


4$: 


INC 


R4 ; 




BIS 


0'0,R3 } 


5$: 


BIS 


0' ,R3 i 




MOVB 


R3,8$ j 




TYPE 


.8* j 


7$ j 


DECB 


$OCNT j 




BGT 


2* i 




BUT 


6$ j 




INC 


R4 { 




BR 


?.* J 


6$: 


MOV 


CSP) + ,R5 ; 




MOV 


(SP)*,R4 i 




MOV 


(SP)*,R3 i 




MOV 


2(SP) l 4CSP) j 




MOV 


CSPKCSP) 




RTI 




8$: 


.BYTE 


j 




.BYTE 


i 


JOCNT; 


.BYTE 


i 


WILL: 


.BYTE 


i 


$OMODE; 


.WORD 


; 



.SBTTL TRAP DECODER 



{BR IF YES 

{DON'T SUPPRESS ANYMORE O'S 

{MAKE THIS DIGIT ASCII 

; MAKE ASCII IF NOT ALREADY 

I SAVE FOR TYPING 

I GO TYPE THIS DIGIT 

l COUNT BY 1 

I BR IF MORE TO DO 

j BR IF DONE 

{INSURE LAST DIGIT ISN'T A BLANK 

I GO DO THE LAST DIGIT 

{RESTORE R5 

j RESTORE R4 

{RESTORE R3 

•SET THE STACK FOR RETURNING 

{RETURN 

{STORAGE FOR ASCII DIGIT 

{TERMINATOR FOR TYPE ROUTINE 

{OCTAL DIGIT COUNTER 

trERO FILL SWITCH 

{NUMBER OF DIGITS TO TYPE 



j ;*********** A A*************************** ***++**+*++**♦+ ******** 

;*THIS ROUTINE WILL PICKUP THE LOWER BYTE CF THE "TRAP' 1 INSTRUCTION 
5*AND USE IT TO INDEX THROUGH THE TRAP TABLE FOR THE STARTING ADDRESS 
j*OF THE DESIRED ROUTINE. THEN USING THE ADDRESS OBTAINED IT WILL 
{ *G0 TO THAT ROUTINE. 



$TRAP: 



MOV 


RO, -CSP) 


MOV 


2CSP),R0 


TST 


-CRO) 


MOVB 


(RO).RO 


MSL 


RO 


MOV 


$TRPAD(RO)»RO 


RTS 


RO 



; {SAVE RO 

I I GET TRAP ADDRESS 

j {BACKUP BY 2 

S {GET RIGHT BYTE OF TRAP 

{{POSITION FOR INDEXING 

j {INDEX TO T ABLE 

{{GO TO ROUTINE 



sjTHIS IS USE TO HANDLE THE "GETPRI" MACRO 



STRAP2 



MOV 
MOV 
RTI 



(SP).-CSP) 
4CSP),2(SP) 



} {MOVE THE PC DOWN 
j {MOVE THE PSW DOWN 
I {RESTORE THE PSW 



.MACRO SET TRAP fl.fl.MSG 

HSET A,B,\<TRAPf $TRP> , \$TRP, <MSG> 
.NLIST 
*TRP-$TRP»1 
.LIST 

.ENDM SET TRAP 
.MACRO MSET A, B ,C, D , COMNT 
.IF EQ $TRP-1 
.SB TIL TRAP TABLE 

}*THIS TABLE CONTAINS THE STARTING ADDRESSES OF 1 HE ROUTINES CALLED 



Mil 



GLOBAL 


AREAS 


MACY11 . 


30AC1052) 15-M/ 


KDJ11A. 


MAC 15 -MAR -84 


15:51 




7531 










7532 










7533 










7534 










7535 










7536 










7537 










7538 










7539 










7540 










7541 










7542 










7543 










7544 










7545 










7546 










7547 










7548 










7549 










7550 










7551 










7552 


037564 


037552 






7553 


037566 


036502 






7554 


037570 


037326 






7555 


037572 


037302 






7556 


037574 


037342 






7 557 


037576 


037056 






7558 










7559 










7560 










7561 










7562 










7563 


037600 


112767 


000001 


000236 


7564 


037606 


112767 


000001 


C00226 


7565 


037614 


000403 






7566 


037616 


112767 


000001 


000220 


7567 


037624 








7568 


037624 


010046 






7569 


037626 


010146 






7570 


037630 


105767 


000206 




7571 


037634 


001450 






7572 


037636 


122767 


000001 


141154 


7573 


037644 


001031 






7574 


037646 


132767 


oooioo 


141145 


7575 


037654 


001425 






7576 


037656 


017600 


000004 




7577 


037662 


062766 


000002 


000004 


7578 


037670 


0C5767 


141104 




7579 


0376 74 


001375 






7580 


037676 


01006 7 


141112 




7581 


037702 


105720 






7582 


037704 


001376 






7583 


037706 


166700 


141102 




7584 


03 7 712 


006200 






7585 


037714 


010067 


141076 




7586 


037720 


012767 


000004 


141052 



14 
IAP 



itcBB 



ER 



PAGE 142 



SEQ 0142 



j*BY THE "TRAP" INSTRUCTION, 
; ROUTINE 



TRAP 4-0(0 



COMNT 



♦TRPAD: .WORD *TRAP2 

.ENOC 

.IIF NDF GNS, .NLJ.ST 

A" C 
»IIF NDF GNS, .LIST 

B t i CALL -A 
.ENDM $$SET 
.MACRO TRMTRP 

♦TERM-.-ITRPAD 
.ENDM TRMTRP 
.SBTTL TRAP TABLE 

1+THIS TABLE CONTAINS THE STARTING ADDRESSES OF THE ROUTINES CALLED 
;*BY THE ''TRAP" INSTRUCTION. 



$TRPAD; 



ROUTINE 

.WORD 

*TYPE 

STYPOC 

*TYPOS 

*TYPON 

$TYPDS 



$TRAP2 

j jCALL-TYPE 
; jCALL-TYPOC 
; ;CALL-TYP0S 
; jCALL-TYPON 
; iCALL-TYPDS 



TRAP»1(104401) 
TRAPf2(104402) 
TRAP *3C 104403) 
TRAP+4C1044O4) 
TRAP+5C104405) 



TTY TYPEOUT ROUTINE 

TYPE OCTAL NUMBER (WITH LEADING ZEROS) 
TYPE OCTAL NUMBER (NO LEADING ZEROS) 
TYPE OCTAL NUMBER (AS PER LAST CALL) 
TYPE DECIMAL NUMBER (WITH SIGN) 



.SBTTL APT COMMUNICATIONS ROUTINE 



5ATY1: 

$ATY3: 

5ATY4: 
$ATYC: 



MOVB 01,$FFLG j j TO REPORT FATAL ERROR 

MOVB *1,$MFLG uTO TYPE A MESSAGE 

BR iATYC 

MOVB #1.$FFLG { j TO ONLY REPORT FATAL ERROR 



1* 



25 



MOV RO.-(SP) 

MOV Rl, (SP) 

TSTB iMFLG 

BEQ 5* 

CMPB OAPTENV, $ENV 

BNE 3$ 

BITB *APTSPOOL,$ENVM 

BEQ 3$ 

MOV B4(SP),R0 

ADD 02.4CSP) 

TST SMSGTYPE 

BNE 1$ 

MOV RO,$MSGAD 

TSFB CRO)* 

BNE 2$ 

SUB IMSGAD.RO 

ASR RO 

MOV R0,$M5GIGT 

MOV tf4,$MSUYYPfc 



l i 
i i 

i i 
i t 
I • 

i i 
• ■ 

i i 

J J 

; i 

i i 
i i 
i i 



PUSH RO ON STACK 

PUSH Rl ON STACK 

SHOULD TYPE A MESSAGE? 

IF NOT: BR 

OPERATING UNDER APT? 

IF NOT: BR 

SHOULD SPOOL MESSAGES? 

IF NOT: BR 

GET MESSAGE ADDR. 

5 i BUMP RETURN AODR . 
SEf IF DONE W/ LAST XMISSION? 
IF NOT; WAIT 
PUT ADDR IN MAILBOX 
FIND END OF MESSAGE 



j {SUB START OF MESSAGE 

j j GET MESSAGE l.NGTH IN WORDS 

; jPUT LENGTH IN MAILBOX 

I j TELL APT TO TAKE MSG. 



Nil 



GL0-3AL ARF.AS 
KDJ11A.MAC 



MACY11 30AC1052) 
15 -MAR 84 15:51 



15 -MAR -84 
APT 



7587 

7588 

7589 

75<J0 

7591 

7592 

7593 

7594 

7595 

7596 

7597 

7598 

7599 

7600 

7601 

7602 

7603 

7604 

7605 

7606 

7607 

7608 

7609 

7610 

7611 

7612 

7613 

7614 

7615 

7616 

7617 

7618 

7619 

7620 

7621 

7622 

7623 

7624 

7625 

7626 

762/ 

7628 

7629 

76"0 

76 .1 

76. '?. 

76- * 

763< 

763'. 

76. ,6 

763 7 

7638 

7639 

7640 

7641 

7642 



037726 
037730 
037736 
037744 
037750 
037754 
037756 
037756 
037762 
037764 
0377/0 
037772 
037776 
040000 
040006 
040014 
040020 
040024 
040030 
040034 
040036 
040040 
040042 
040043 
040044 



040046 
040052 
04 0054 
040060 
040064 
040066 
040074 
040100 
040104 
040106 
040114 
040120 
040124 
040132 
040134 
C40136 
040142 
040146 
040152 
040154 
040160 
040164 



000413 
017667 
062766 
016746 
004 76 7 
000000 

105767 
001416 
005767 
001413 
005767 
001375 
017667 
062766 
005267 
105067 
105067 
105067 
012601 
012600 
000207 
000 
000 
000 
040046 
000200 
000001 
000100 
000040 



00526 7 
001775 
005267 
021627 

101010 
012767 
012637 
012637 
000430 
017667 
011667 
062716 
017637 
104401 
000000 
062716 
104401 
016746 
104402 
104401 
016746 
104402 



000004 
000002 
140026 
176526 



000062 
141030 

141002 

000004 
000002 
140760 
000020 
000013 
000006 



141000 

140764 
001002 

007777 
001062 
001064 

000000 
000072 
000002 
000000 



000002 
002046 
000030 

002062 
000026 



000016 
000004 



140774 
000004 



000106 

000066 
040134 



3$: 



4$: 
5$; 
10$ 



16:58 PAGtl 143 
COMMUNICATIONS ROUTINE 



BR 5* 

MOV &4CSP),4$ 

ADO &2.4CSP) 

MOV 177776, -(SP) 

JSR PC,$TYPE 

.WORD 

$FFLG 

12$ 

IENV 

12$ 

$M5GTYPE 

11) 

Q4C3P).$FATAL 

02.4CSP) 

<MSGTYPE 

IFFLG 

iLFLG 

$MFLG 

(SP)*,R1 

(SP)*,RO 

PC 









SEQ 0143 



{{PUT MSG ADDR IN JSR LINKAGE 
I {BUMP RETURN ADDRESS 
; jPUSH 177776 ON STACK 
> j CALL TYPE MACRO 



TSTB 
BEQ 
1ST 
BEQ 
11$: TST 
BNE 
MOV 
ADO 
INC 
12$: CLRB 
CLRB 
CLRB 
MOV 
MOV 
RTS 
$MFLG: .BYTE 
$LFLG: .BYTE 
SFKLG: .BYTE 
.EVEN 
APTSIZE-200 
APTENV-001 
APTSP00L-100 

APTCSUP-040 

» ******#** + * 

THIS ROUTINE 
ERROR NUMBER 



i J 
i i 

i i 

i ; 

J ! 

i J 

i i 

i i 

i i 
i i 
; i 
i : 
t : 
t j 

i » 

: t 

; » 



SHOULD REPORT FATAL ERROR? 

IF NOT: BR 

RUNNING UNDER APT 7 

IF NOT: BR 

FINISHED LAST MESSAGE? 

IF NOT: WAIT 

GET ERROR 4 

j ;8UMP RETURN ADl)R. 
TELL APT TO TAKE ERROR 
CLEAR FATAL. FLAG 
CLEAR LOG FLAG 
CLEAR MESSAGE FLAG 
POP STACK INTO Rl 
POP STACK INTO RO 
RETURN 
MESSG. F-LAG 
LOG FLAG 
FATAL TLAG 



*****.■*■*****# + * + + ***********#*** + -* + ****************** 
WILL INCREMENT THE ERROR COUNT AND THEN PASS THE UNIQUE 
TO THE APT ERROR ROUTINE TO BE REPORTED TO THE APT SYSTEM 



$ERROR: 



1* 



100$ 
102$ 



INC 

BEQ 

INC 

CMP 

BHI 

MOV 

MOV 

MOV 

BR 

MOV 

MOV 

ADD 

MOV 

TYPE 

. WORD 

ADD 

TYPE 

MOV 

TYPOC 

TYPE 

MOV 

TYPUC 



iERFT G 

SERROR 

ERRCNT 

CSP), 

1$ 

07777, 



#1002 
3$ 



csp)*.aosAvspi 

(SP)*,a*SAVSP2 

2$ 

BCSP), 3$ 

CSP), 101$ 
#2 , ( SP ) 

acsp),swi02$ 
o 

42 , ( SP ) 
,ERR1 
3$, -CSP) 

, ERR2 
101$, -(SP) 



:. INCREMENT ERROR FLAG 
{DON 1 T LET TV GO TO ZERO 
, NCREMENT THE ERROR COUNT 

IS ERROR FROM VECTOR AREA 

IF YES THEN 

REPORT AN UNEXPECTEf' TRAP 

SAVE UNEXPECTED YRAr' DATA 
{AND RESTORE SP 

ELSE 

REPORT UN T QUE ERROR NUMBER TO APT 

SAVE '-RROR PC 
j GET OVER UNIQUE E'lRCJR NUMBER FOR RETURN 

j TYPE ERROR MESSAGE 

I GET OVER ERROR MESSAGE 

;PUSH UNIQUE ERROR NUtti I ON THE STACK 
j TYPE OCTAL ERROR NUMBl.H 

I PUSH ERROR PC ON THE STACK 
{TYPE THE ERROR PC 



B 1 



J 



GLOBAL 


ART AS 


MAC 111 


50 A I 1052 


) is 


MAR 64 16:58 PAGE 144 


KDJilA, 


MAC 15 -MAR 84 


15 


:51 






APT COMMUNICATIONS ROUTINF- 


/643 


040166 


122/6/ 


000001 


140624 


2$: CMPH 


OAPTENV.UNV 


7M4 


040174 


001004 










BNf 


SI 


7645 


040176 


004 76 7 


W7414 






JSR 


PC, $ATY4 


7646 


040202 


000000 










M: .WORD 





764 7 


040204 


000777 










4«. BR 


41 


764ft 


040206 


000000 










Mi HALT 




764^» 


040210 


000002 










RTI 




7*50 


04021? 


OOOOOO 










101$: .WORD 





7651 


040214 












IPATCHj j 




7652 


040214 


0000 10 










t BLKW 


10 


7653 




000001 










.END 





sea 0144 



I CHECK TO MAKE SURF WE'RF IN APT MODE 

lir YES THEN 

iGO REPORT ERROR TO APT 

(STORAGE EOR ERROR NUMBER 

I LOOP HERE AFTER REPORTING ERROR TO APT 

I IE NOT APT THEN HALF 

i ALLOW RECOVERY FROM HALT 



GLOBAL 
KOJllA, 


AHtAS 

MAC I s 


tfKAVM M) 


15 MAR cS3ss l l 


ABASe • 


000000 


54/ 




ACDW1 « 


000000 


M ; 




acdw£ - 


000000 


54/ 




ACPUOP- 


000000 


54 7 


562 


ADDT 


003556 


1063 


1091 1099 


ADOWO " 


oooooo 


54 7 




ADQU1 « 


000000 


54 7 




AODWIO- 


oooooo 


54 7 




ADDWll' 


oooooo 


54/ 




ADDU12- 


oooooo 


54/ 




ADDW13- 


oooooo 


54 7 




AD0U14« 


oooooo 


54/ 




ADDU15* 


oooooo 


54/ 




ADDW? • 


oooooo 


54 7 




ADDU3 ■ 


oooooo 


54 7 




ADDW4 ■ 


oooooo 


54 7 




AD0W5 ■ 


oooooo 


54 7 




AD0W6 • 


oooooo 


54 7 




ADDW7 • 


oooooo 


54/ 




ADDU8 • 


oooooo 


54 7 




ADDW9 « 


oooooo 


54/ 




ADEVCT" 


oooooo 


54/ 


553 


AUFVM 


oooooo 


54 7 




AHNV » 


oooooo 


54/ 


558 


AtNVM ' 


oooooo 


54 7 


559 


MFATAL- 


■ oooooo 


54 7 


550 


At.LCTR 


001056 


58 9 o 




AMADR1' 


■ oooooo 


54 7 




AMADP2- 


' oooooo 


54/ 




AMADR3 


' oooooo 


54/ 




AMADR4 


• oooooo 


54 7 




AMAMS1 


■ oooooo 


54/ 




AMAM52 


" oooooo 


54/ 




AHAMS3 


• oooooo 


54/ 




AMAHS4 


• oooooo 


54/ 




AM'jGAD 


■ oooooo 


54 7 


555 


AMSGLG 


■ oooooo 


54 7 


556 


AMSGTT 


• oooooo 


54/ 


549 


AMTtPI 


■ oooooo 


54 7 




AMTyP.7 


■ oooooo 


54/ 




AHTYP3 


- oooooo 


54/ 




AMTYP4 


• oooooo 


54/ 




APASS 


< oooooo 


54/ 


552 


APWIOK 


• oooooo 


54/ 




APTCSL) 


• 000040 


72 76 


7616* 


APTFNV 


' oooooi 


7269 


75 /2 7614 


APTSI/ 


• 000200 


A67 


76130 


APTSPO 


■ oootoo 


7c? 71 


7574 76150 


A SURF r, 


• OOOOOO 


54 7 


560 


ATtSTN 


• OOOOOO 


54/ 


551 


AUNIT 


- OOOOOO 


54/ 


554 


AUSWK 


• 002000 


466* 


54 7 561 


AVECT1 


' oooooo 


54/ 




AVLCTJ 


- oooooo 


54/ 




F)t.VENT 


» 1 7 /546 


458* 




BKA 


003610 


1077 


1005 1093 



^RtKfcFrA^. 



CI 2 

USER SYMBOL S 



SEU 0145 



1116 



11320 



764 "5 



1101 



1110 



1119 11380 



in; 



lacyrti. 


ARFAS 
MAC 15 


KDJUA. 


BFAC1 


003352 


Bf- AC? 


0033 76 


BF AC3 


003422 


BFAC4 


003446 


BfAC5 


003474 


BFAE 


003650 


BFB 


003646 


BITO - 


000001 


BITOO - 


000001 


BITOl * 


000002 


BITO*? • 


000004 


BIT03 • 


000010 


BIT04 ■ 


• 000020 


BIT05 » 


000040 


BIT06 - 


• 000100 


BIT07 » 


• 000200 


BIT08 ' 


• 000400 


BIT09 « 


• 001000 


Bill > 


■ 000002 


BITIO ' 


■ 002000 


BIT11 « 


■ 004000 


BIT12 ■ 


■ 010000 


BIT13 ' 


• 020000 


BIT14 » 


■ 040000 


BIT15 • 


« 100000 


BITS ■ 


• 000004 


BIT3 ■ 


■ 0OO010 


BIT4 


■ 000020 


BIT5 


■ 000040 


BI16 ' 


• 0OC10O 


BIT? 


' 000200 


BIT8 


• 000400 


BIT9 


■ 001000 


BOARDT 


■ 000001 


BPTVEC 


* 000014 


BTtR 


002650 


BTF.XP 


001066 


BTGO 


002450 


BTRES 


001076 


BUST 


003150 


BTTSTE 


003176 


BT1 


* ****** (j 


CACHET 


- 000001 


CCR 


* 17 7746 


CHECK 7 


005132 


CHECIO 


005366 


Cm~.C26 


010616 


CHEC27 


011.162 


CHEC30 


on r ;,o 


CHEC32 


012166 


CHEC33 


012464 



HA 



AfoViM 



521 1S HAR c88ss l fe?gR E Rei' 



m. 



USER SYMBOL 



SEQ 0]46 



1078 

1066 

1094 

1102 

lltl 

1120 

1139 
279* 
269* 
268* 
267* 
266* 
265* 
264* 
263* 
262* 
261* 
260* 
278* 
259* 
258* 
257* 
256* 
255* 
254* 
277* 
276* 
275* 
274* 
273* 
272* 
271* 
270* 
1* 
286* 
934 
596* 

1058* 

1130* 
902* 
597* 
980* 

1118* 
954 

1026 
883 
1* 

7497 
452* 

1474 

1545 

2321 

2441 

2549 
2/01 
2788 



1083* 
1091* 

1099* 

1107* 

1116* 

1125 

1141 

279 

278 
277 
2 76 
275 
2 74 
273 
272 
271 

270 



509 

936 

897 

1059* 

1132* 

1017 

898 

990* 

1138 

963 

1028 

156 

832* 
1478 
1549 

2332 
24 59 
256 7 

2/12 

2 799 



1148* 
1143 



606 

938 

913 

1060* 

1133* 

914* 
1000* 
1140 

972 
1030 

159 

875* 
1486 
155/ 

234 3 
24 7 7 
2585 
2/2 3 
2810 



1145* 



761 

941* 
916 
1061* 
1134* 

917* 
1025 
1142 

981 
1032* 

177 



1490 

1561 

2 356 

2489* 

2596* 

2/34* 

2821* 



919 
1062 
1135* 

920* 
1027 
1144 

991 



509 



1496* 
156/0 
2367 



922 

1065 
1138 

923* 
1029 

1001 



594 



2381* 



''25 

1068 
1140 

933 
1031 

1025* 

60V 



929 
1070 
1142 

935 
105/ 



752 



933 
10 72 
1144 

93 7 
1076* 



761 



935 
1074 



939 
1084* 



831 



93 7 
1127* 



95 5* 
1092* 



874 



439 
1128* 



962* 
1100* 



194 



1056 
1129* 



1109* 



7 ) 



45 



GLOBAL ARtAS 
KDJ11A.MAC 



MACU1 30AC1052) 
15 -MAR -84 15:51 



15 -MAR 64 16 ; 59 PAGE 148 
CROSS REFERENCE TABLE 



E12 

USER SYMBOLS 



SEQ 0147 



CHEK7 

CHK10 

CHK7 

CH10 

CLRD 

CLRI 

CMPD 

:mprtn 

COUNT 



005136 
005404 
005150 
005372 
**++*+ 
*** **• 
** *.*.** 
017730 
001040 



U 

u 

u 



CPEREG* 


177766 


CPUTST- 


000001 


CR 


000015 


CRLF' - 


000200 


DA TRAM* 


000001 


DATVER 


002146 


DATVFR 


002130 


DAT1 


002160 


DCOUNT 


001054 


DOISP « 


177570 


DISPLA 


001050 


DISPRE 


000174 


DIVD * 


****** g 


DIVF - 


****** \j 


DSWR - 


177570 


DVDSUB 


022000 


DVPSUB 


021002 


Dl 


004236 


D2 


004250 


D3 


004252 


D4 


004270 


D5 


004304 


D6 


004 314 


07 


004320 


EMTVF.C- 


000030 


ERR 


002126 


ERRCNT 


001044 


ERRFP 


002124 


ERRMSG 


001766 G 


ERRNUM- 


000514 



1497* 


1503 
























1569 


1574* 
























L498 


1503* 
























1568* 


1574 
























5809 


























5840 


























4039 


























4047 


4056 


4065 


4073 


4095* 


















581* 


817* 


822* 


823* 


2919 


2964 


3004 


3040 


3070 


3106 


3144 


3175 


3194 


3211 


3229 


3263 


3282 


3313 


3332 


3357 


3371 


3403 


3415 


3431 


3444 


3476 


3512 


3550 


3575 


3597 


3619 


3651 


5670 


3697 


3711 


3742 


3780 


3805 


3843 


3868 


3906 


3938 


3968 


4006 


40 T ,o 


4122 


4361 


4560 


4779 


4987 


5206 


5217 


5506 


5517 


5622 


5762 


5824 


bl91 


6369 


6498 


6797 


7026 








455* 


























1* 


166 


509 


603 


756 


877 


7233 














194* 


752 


756 


761 


763 


766 


7233 


7241 


7332 


7344 








195* 


7286 


7344 






















1* 


874 
























820* 


2918 


2963 


3003 


3039 


3069 


3105 


3143 


3174 


3193 


3210 


3228 


3262 


3281 


3312 


3331 


3356 


3370 


3402 


3414 


3430 


3443 


3475 


3511 


3549 


3574 


3596 


3618 


3650 


3669 


3696 


3710 


3741 


3779 


3804 


3842 


3867 


3905 


3937 


3967 


4005 


4029 


4121 


4559 


4986 


5505 


5516 


5621 


5823 


6190 


6497 


6796 


815* 


4360 


4778 


5205 


5216 


5761 


6368 


7025 












818 


823* 


826 






















588* 


























201* 


585 


848 






















585* 


848* 


856* 






















495* 


856 
























4381 


























4133 


























200* 


584 


84 7 






















4389 


4401 


4413 


4424 


4435 


4446 


4457 


4468 


4480 


4506* 








4141 


4151 


4160 


4168 


4177 


4185 


4193 


4201 


4209 


4217 


4225 


4233 


4241 


4250 


4258 


4267 


4276 


4285 


4307* 
















1275* 


1291 


1296 






















1278* 


1279* 
























1280* 


1304 
























1288* 


1325 


1331 






















1289 


1292* 
























1293 


1295* 
























1294 


1297* 
























289* 


836* 


837* 






















794* 


























583* 


7623* 
























793* 


























752* 


























465* 


785 


788* 


941 


945* 


956 


959* 


965 


968* 


974 


977* 


98 3 


986* 


993 


996* 


1003 


1006* 


1079 


1082* 


1087 


1090* 


1095 


1098* 


1103 


1106* 


1112 


1115* 


1121 


1124* 


1175 


1178* 


1208 


1211* 


1228 


1231* 


1236 


1239* 


1246 


1249* 


1254 


1257* 


1284 


1287* 


1306 


1309* 


1314 


1317* 


1326 


1330* 


1353 


133 7* 


1340 


1344* 


1364 


1367* 


1371 


1374* 


1380 


1384* 


1404 


140/* 


1412 


1415* 


1421 


1424* 


1429 


1432* 


1448 


1452* 


1499 


1502* 


1506 


1510* 


1570 


1573* 


15 7 7 


1581* 


161t> 


1619* 


1623 


1626* 


1652 


1655* 


1658 


1661* 


1685 


1688* 


1692 


1695* 


1699 


1 702* 


1708 


1712* 


1737 


1740* 


1745 


17480 


1752 


1755* 


1761 


1765* 


1791 


1794* 


W«8 


1801* 


1805 


1808* 


1813 


1816* 


1820 


1G23* 


1829 


1833* 


1858 


1861* 


18*5 


18b8? 


1873 


1876* 


1880 


1803* 


1889 


1893* 


1919 


1922* 


1925 


1928* 


1932 


1935* 


1940 



F12 



GLOBAl ARIAS MACU1 3OAC1052) 15 -MAR -84 16; 58 PAGE 149 

KDJ11A.MAC 15-MAR-84 15i51 CROSS REFERENCE TABLE 



-- USER SYMBOLS 



ERRTN * 

ERRVEO 

ERRt 

ERR2 

EXPOAT 

FACU - 

FIN1 

FIN10 

FIN11 

FIN13 

FIN14 

FIN15 

FIN16 

FIN17 

FIN2 



00OOO0 
000004 
002046 
002062 
001034 
****** 

003 742 
005450 
005560 
006004 
006160 
0064 00 
006572 
007006 
004044 



U 



1943* 
2017 
2089* 
2185 
2276* 
2351 
2457* 
2562 
2660* 
2792 
2887* 
2966 
3045* 
3139 
3208* 
3284 
3376* 
34 78 
3539* 
3613 
3702* 
3782 
3848* 
3932 
4003* 
4332 
4534* 
4759 
4970* 
5199 
5488* 
5630 
5779* 
5880 
5936* 
6011 
6071* 
6144 
6374* 
67 76 
7011* 
463* 
282* 
761* 
763* 
579* 
1040 
1169 
1565 
1630 
1706 
1759 
182 7 

iaa 7 

1954 

1199 



194 7 

2021* 

2115 

2189* 

2281 

2354* 

2463 

2565* 

2664 

2795* 

2906 

2969* 

3063 

3142* 

3213 

3287* 

5397 

3481* 

3543 

3616* 

3713 

3785* 

3862 

3935* 

4008 

4335* 

4540 

4762* 

4980 

5202* 

5499 

5634* 

5796 

5883* 

5941 

6014* 

6089 

61470 

6380 

6779* 

7019 

845 

7637 
7640 



1180* 
1596* 
16360 
17150 
17680 
18360 
18960 
19630 
12130 



1950* 

2048 

2118* 

2216 

2284* 

2362 

2466* 

2571 

2667* 

2803 

2909* 

2992 

3066* 

3146 

3216* 

3308 

3400* 

3489 

3546* 

3621 

3716* 

3799 

3865* 

3940 

4011* 

4341 

4543* 

4772 

4983* 

5208 

5502* 

5726 

5799<, 

5886 

5944* 

6017 

6092* 

6152 

6383* 

6790 

7022* 

846* 



1956 

2051* 

2123 

2219* 

2289 

2365* 

2472 

2574* 

26 74 

2806* 

2912 

2995* 

3072 

3149* 

3224 

3311* 

3405 

3492* 

3552 

3624* 

3736 

3802* 

3870 

3943* 

4024 

4344* 

4553 

4775* 

4989 

5211* 

5508 

5729* 

5802 

5889* 

5964 

6020* 

6095 

6155* 

6491 

6793* 

7028 

857* 



1960* 

2055 

2126* 

2223 

2292* 

2372 

24 75* 

2580 

2678* 

2814 

2915* 

2998 

3075* 

3168 

3227* 

3315 

3408* 

3498 

3555* 

3645 

3739* 

3807 

3873* 

3953 

4027* 

4354 

4556* 

4781 

4992* 

5219 

5511* 

5735 

5805* 

5892 

5907* 

6025 

6098* 

6176 

6494* 

6799 

7031* 



1985 

2058* 

2130 

2226* 

2296 

2375* 

2481 

2583* 

2705 

2817* 

2922 

3001* 

3094 

3171* 

3231 

3318* 

3417 

3501* 

3569 

3648* 

3744 

3810* 

3883 

3956* 

4032 

4357* 

4562 

4784* 

5001 

5222* 

5519 

5738* 

5826 

5895* 

5970 

6028* 

6101 

6179* 

6500 

6802* 

7040 



1988* 

2062 

2133* 

2229 

2299* 

2384 

2484* 

2589 

2708* 

2825 

2925* 

3006 

3097* 

3177 

3234* 

3326 

3420* 

3505 

3572* 

3653 

3747* 

3820 

3886* 

3962 

4035* 

4363 

4565* 

4793 

5004* 

5230 

5522* 

5744 

5829* 

5900 

5973* 

6048 

6104* 

6183 

6503* 

6811 

7043* 



1993 

2065* 

2139 

2232* 

2316 

2387* 

2493 

2592* 

2716 

2828* 

2945 

3009* 

3100 

3180* 

3257 

3329* 

3433 

3508* 

3577 

3656* 

3757 

3823* 

3894 

3965* 

4112 

4366* 

4573 

4796* 

5167 

5233* 

5530 

5747* 

5833 

5903* 

5976 

6051* 

6109 

6186* 

6509 

6814* 

7169 



1996* 

2069 

2143* 

2236 

2319* 

2437 

2496* 

2600 

2719* 

2871 

2948* 

3028 

3103* 

3189 

3260* 

3334 

3436* 

3514 

3580* 

3664 

3760* 

3829 

3897* 

3970 

4115* 

4374 

4576* 

4949 

5170* 

5467 

5533* 

5755 

5836* 

5921 

5979* 

6054 

6112* 

6193 

6512* 

6^90 

7172* 



2001 

2072* 

2169 

22390 

23?7 

2440* 

2545 

2603* 

2727 

2874* 

2951 

3031* 

3108 

3192* 

3265 

3337* 

3446 

3517* 

3591 

3667* 

3766 

3832* 

3900 

3973* 

4124 

4377* 

4741 

4952* 

5176 

54 70* 

5615 

5758* 

5853 

5924* 

5984 

6057* 

6132 

6196* 

6 758 

6993* 

7176 



2004* 

2076 

2172* 

2245 

23300 

2445 

2548* 

2650 

2730* 

2878 

2954* 

3034 

3111* 

3196 

3268* 

3359 

3449* 

3527 

3594* 

3672 

3769* 

3836 

3903* 

3984 

4127* 

4522 

4744* 

4958 

5179* 

5476 

5618* 

5764 

5856* 

592 7 

5987* 

6060 

6135* 

6362 

67610 

6999 

7179* 



2008 

2079* 

2176 

2249* 

2338 

2448* 

2553 

2653* 

2738 

2881* 

2957 

3037* 

3131 

3199* 

3276 

3362» 

3470 

3530* 

3599 

3675* 

3773 

3839* 

3908 

3987* 

4323 

4525* 

4750 

4961* 

5185 

5479* 

5624 

5767* 

5859 

5930* 

6005 

6063* 

6138 

6365* 

6767 

7002* 

7185 



SEQ 0148 



2011* 

2085 

2179* 

2273 

2341* 

2454 

2556* 

2657 

2741* 

2884 

2960* 

3042 

33 34* 

3205 

32790 

3373 

34730 

3536 

3602* 

3699 

37760 

3845 

3911* 

4000 

43260 

4531 

47530 

4967 

51880 

5485 

56270 

5776 

58620 

5933 

60080 

6068 

61410 

6371 

6 7 700 

"008 

71860 

















G12 
















GLOBAL 


AREAS MACU1 


3CA(1052) 

15:51 


15 -MAR 


S 4 ifii^ 


:58 PAGE 


15° 
TABLE - 
















SEQ 01 


KDJ11A. 


MAC 15 -MAR. 84 




CROSS REFERENCE 


- USER SYMBOLS 












FIN20 


00 7206 


2015 


20244 
























FIN21 


007430 


2083 


20920 
























FIN22 


007616 


2137 


21460 
























FIN23 


007754 


2183 


21910 
























FIN24 


010156 


2243 


22520 
























FIN26 


010720 


2379 


24150 
























FIN2 7 


011264 


2487 


25230 
























FIN30 


011632 


2594 


26300 
























FIN31 


011774 


2672 


26810 
























FIN32 


012270 


2732 


27680 
























FIN33 


012566 


2819 


28550 
























FIN4 


004444 


1302 


13460 
























FINS 


004554 


1378 


13860 
























F IN6 


004 760 


1437 


14540 
























FIN7 


005214 


1494 


15250 
























FLAG 


001042 


582* 


4046* 


4055* 


4064* 


4116 


4140* 


4150* 


4159* 


4167* 


4176* 


4184* 


4192* 


4200* 






4208* 


4216* 


4224* 


4232* 


4240* 


4249* 


4257* 


4266* 


4275* 


4284* 


4321 


4330 


4367 






4 388* 


4400* 


4412* 


4423* 


4434* 


4445* 


4456* 


4467* 


4479* 


4520 


4529 


4566 


4587* 






4595* 


4603* 


4611* 


4619* 


4627* 


4635* 


4643* 


4651* 


4659* 


4667* 


4675* 


4684* 


4693* 






4702* 


4739 


4748 


4 785 


4806* 


4817* 


4828* 


4839* 


4850* 


4861* 


4872* 


4883* 


4895* 






4906* 


4947 


4956 


4993 


5014* 


5023* 


5032* 


5041* 


5050* 


5060* 


5069* 


5078* 


5087* 






5096* 


5105* 


5114* 


5123* 


5165 


5174 


5223 


524 7* 


5260* 


5273* 


5286* 


5299* 


5312* 






5325* 


5338* 


5351* 


5364* 


5378* 


5391* 


5405* 


5:19* 


5465 


54 74 


5523 


5646* 


5654* 






5662* 


5670* 


5678* 


5686* 


5724 


5733 


5768 


6!i24* 


6534* 


6544* 


6554* 


6564* 


6574* 






6585* 


6596* 


6607* 


6618* 


6629* 


6639* 


6649* 


6o60* 


6671* 


6681* 


6692* 


6702* 


6713* 






6756 


6765 


6803 


6826* 


6834* 


6842* 


6850* 


6858* 


6866* 


6874* 


6882* 


6890* 


6898* 






6906* 


6914* 


6922* 


6930* 


6938* 


6946* 


6988 


699 7 


7032 


7055* 


7063* 


7071* 


7079* 


FPPERR 


002013 


7560 


787 


944 


958 


967 


976 


985 


995 


1005 


1081 


1089 


1097 


1.105 






1114 


1123 


1177 


1210 


1230 


1238 


1248 


1256 


1286 


1308 


1316 


1329 


1336 






1343 


1366 


1373 


1383 


1406 


1414 


1423 


1431 


1451 


1501 


1509 


1572 


1580 






1518 


1625 


1654 


1660 


1687 


1694 


1701 


1711 


1739 


1747 


1754 


1764 


1793 






1800 


1807 


1815 


1822 


1832 


1860 


1867 


1875 


1882 


1892 


1921 


1927 


1934 






1942 


1949 


1959 


1987 


1995 


2003 


2010 


2020 


2050 


2057 


2064 


2071 


20 78 






2088 


2117 


2125 


2132 


2142 


2171 


2178 


2188 


2218 


2225 


2231 


2238 


2248 






2275 


2283 


2291 


2298 


2318 


2329 


234C 


2353 


2364 


2374 


2336 


2439 


2447 






2456 


2465 


2474 


2483 


2495 


254 7 


2555 


2564 


2573 


2582 


2591 


2602 


2652 






2659 


2666 


2677 


2707 


2718 


2729 


2/40 


2794 


2805 


2816 


2827 


28 7 3 


2680 






2886 


2908 


2914 


2924 


294 7 


2953 


2959 


2968 


2994 


3C00 


3008 


3030 


3036 






3044 


3065 


3074 


3096 


3102 


3110 


3133 


3141 


3148 


3170 


3179 


31Q, 


3198 






3207 


3215 


3226 


3233 


3259 


3267 


3278 


3286 


3310 


3317 


3528 


33o6 


3361 






3375 


3399 


3407 


3419 


34 35 


3448 


3472 


3480 


3491 


3500 


350 7 


3516 


3529 






3538 


3545 


3554 


3571 


35/9 


3593 


3601 


3615 


3623 


364 7 


3655 


3666 


3674 






3701 


3715 


3738 


3746 


3759 


3768 


3775 


3784 


3801 


3809 


3822 


3831 


3838 






3847 


3864 


3872 


3885 


3896 


3902 


3910 


3934 


3942 


3955 


3964 


3972 


3986 






4002 


4010 


4026 


4034 


4114 


4126 


4325 


4334 


4343 


4356 


4365 


43 76 


4524 






4533 


4542 


4555 


4564 


4575 


4743 


4 752 


4761 


4 7 74 


4783 


4795 


4951 


4960 






4969 


4982 


4991 


5003 


5169 


5178 


5187 


5201 


5210 


5221 


5232 


5469 


54 78 






5487 


550 1 


5510 


5521 


5532 


5617 


5626 


5633 


5728 


5737 


5746 


5757 


5/66 






5778 


5798 


5804 


5828 


5835 


5855 


5861 


5882 


5888 


5894 


5902 


5923 


5929 






5935 


5943 


5966 


59/2 


59/8 


5986 


600/ 


6013 


6019 


6027 


6050 


6056 


6062 






60/0 


6091 


6097 


6103 


6111 


6134 


6140 


6146 


6154 


6178 


6185 


t>195 


63u4 






6373 


6382 


6493 


6502 


6511 


6 760 


6 769 


67 78 


6792 


6801 


6813 


6^92 


7001 






7010 


7021 


7030 


7042 


7171 


71 78 


7167 














FPPTST 


= ** V * * * \J 


1 


166 


509 


596 


609 


610 


756 


761 


782 


877 


7235 






FPTS1 


= ****** \J 


1152 


























FPTSIO 


= ****** y 


1527 



























GLOBAL ARFAS 
KDJUA.MAC 



MACU1 30/U1052) 15 -MAR -84 16:58 PAGE 151 
15-MAR-84 15:51 CROSS REFERENCE TABLE 



H12 

USER SYMBOLS 



SEQ 0150 



FPTS11- 

FPTS12- 

FPTS13= 
FPTS14= 
FPTS15- 
FPTS16- 
FPTS17= 
FPTS2 * 
FPTS2C- 
FPTS21* 
FPTS22= 
FPTS23- 
FPTS24* 
FPTS25= 
FPTS26* 
FPTS27= 
FPTS3 = 
FPTS30* 
FPTS31- 
FPTS32- 
FPTS33= 
FPTS4 = 
FPTS5 * 
FPTS6 = 
FPTS7 = 
FPVEC ■ 



FSRCMO* 

GNS 

HITMIS* 

HOP 10 

HOP 11 

HOP 12 

H0P13 

HOP 14 

HOP 15 

HOP 16 

HOP 17 

HOP 18 

H0P19 

H0P20 

H0P21 

HOP?^ 

H0P44 

HT 

HYBRID 3 

ILL 

ILL0P1 

ILL0P2 

IOTVF.C" 

KDPARO* 

KDPAR1* 

KDPAR2* 

KDPAR3* 

KDPAR4- 



****** 
****** 

****** 
****** 

****** 
****** 
****** 
****** 

****** 
****** 
****** 
****** 
****** 
****** 
****** 
****** 
****** 
****** 
****** 
****** 
****** 
****** 
****** 
* * .% * * * 
****** 

000244 



****** 
****** 

177752 
021244 
022242 
023304 
024336 
0254 36 
027136 
027456 
030144 
032464 
033106 
034532 
035622 
036274 
020056 
000011 
000001 
004544 
004340 
0044 34 
000020 
172360 
172362 
172364 
172566 
172370 



U 
U 

u 

u 
u 
u 

U 

u 
u 

Li 

u 
u 
u 

u 

LI 
Li 

U 
U 

u 
u 
u 
u 
u 
u 
u 



u 
u 



1598 
1638 
1665 
1717 
1770 
1838 
1898 
1182 
1965 
2026 
2093 
2148 
2193 
2254 
2302 
2417 
1215 
2525 
2632 
2683 
2770 
1261 
1348 
1388 
1456 

449* 
5150* 
6475* 
2857 
494 
454* 
4294 
4492 
4712 
4919 
5133 
5434 
5585 
5695 
6329 
6459 
6725 
6955 
7139 
4080 
192* 
1* 
1356 
1270 
1274 
287* 
430* 
431* 
432* 
433* 
434* 



3485* 
5450* 
6740* 

7553 

4380* 
4579* 
4798* 
5006* 
5238* 
5536* 
5637* 
5782* 
6385* 
6515* 
6817* 
7046* 
7192* 
4129* 
7284 

471 
1380* 
1304* 
1340* 

871* 



3521* 
5599* 
6971* 

7554 



3561* 
57} 1* 

7153* 

755b 



3754* 
5875* 



7556 



3789* 
5916* 



7557 



3814* 
5959* 



3852* 
6000* 



387 7* 
6043* 



4 308* 
6084* 



4507* 
6127* 



4726* 
6168* 



4934* 
6346* 



7342 
604 



872* 



874 



7205 



7221 



7233 



7246 



7497 



7560 



GLOBAi AREAS 
KDJ11A.MAC 



KDPAR5- 

KDPAR6* 

KDPAR7- 

KDPDRO- 

KDPDR1= 

KDPDR2- 

KDPDR3* 

KDPDR4= 

KDPDR5' 

K0P0R6' 

KDPDR7* 

KIPARO* 

KIPAR1- 

KIPAR2* 

KIPAR3* 

KIPAR4= 

KIPAR5« 

KIPAR6* 

KIPAR7* 

KIPDRO- 

KIPDR1* 

KIPDR2* 

KIPDR3- 

KIPDR4- 

KIPDR5- 

KIPDR6- 

KIPDR7* 

LCD 

LCDSUB 

LCF 

Lcrsue 

LDC 

LDC2 « 
LDDM2 = 
LDDM3 - 
LDDM4 a 
LDDM5 - 
LDDM6 - 
LDDM7 -- 
LDM27 - 
LF 

LOOP IN 
LOST 
LSI 
LS2 
LS3 
LS4 
L55 
L56 
L57 
LXP 
LXP5UB 

MACK 
MACO 



172372 
172374 

172376 
172320 
172322 
172324 
172326 
172330 
172332 
172334 
172336 
172340 
172342 
172344 
172346 
172350 
172352 
172354 
172356 
172300 
172302 
172304 
172306 
172310 
172312 
172314 
172316 

****** 

032760 
****** 

032336 

****** 

****** 
****** 

****** 
****** 
***** « 
****** 

****** 

****** 

000012 
001060 
003722 
****** 
****** 
****** 
****** 
****** 
****** 
****** 
****** 
034262 

002610 
002500 



MACU1 30AQ052) 
15-MAR-84 15:51 

4 35* 
436* 
437* 
408* 
409* 
410* 
411* 
412* 
413* 
414* 
415* 
419* 
420* 
421* 
422* 
423* 
424* 
425* 
426* 
397* 
398* 
399* 
400* 
401* 
402* 
403* 
404* 
U 6387 

6394 
U 6201 
6208 
6286 
U 3915 

U 6159 
U 2891 
U 2928 
U 2972 

U 3012 

U 3048 

U 3078 

U 3114 

193* 
590* 
1160 
U 5866 

U 5907 

U 5948 

U 5991 

U 6032 

U 6075 

'J 6116 

U 6517 

6525 
6661 
915 
911 



15 -MAR -84 16:58 PAGE 152 
CROSS REFERENCE TAbLE 



112 

USER SYMBOLS 



SEQ 0151 



6401 

6214 

6292 



6408 

6220 
6298 



6415 

6226 
6304 



6422 

6232 
6310 



642Q 

6238 
6316 



6436 

6244 

6322 



6443 

6250 
6345* 



6450 
6256 



6474* 

626? 6268 



6574 



6280 



752 
1162 



756 
1164 



761 
1166 



76^ 
1171* 



'b6 



7?5S 



241 



7336 



7 344 



6535 
66 72 
918 
913* 



6545 

6682 

921 



6555 

6693 

924 



*.5f.:. 
fc/O* 

933* 



0' 7 14 






659 7 



6608 



6619 



Ob30 



6640 



6650 



GLOBAL 


ARF.AS MACU1 


30AC1052) 


KOJ11A. 


MAC 15 -MAR -04 


15:51 


MACOA 


002504 


914* 


MAC1 


002514 


916* 


MAC2 


002530 


919* 


MAC3 


002544 


922* 


MAC4 


002560 


925* 


MAC5 


002574 


929* 


MBTE 


003200 


1021 


MBT1 


002422 


883* 


MBT2 


0024 30 


896* 


M8T2A 


002442 


899* 


MBT8 


002656 


940 


MBT8A 


002712 


950 


MBT8B 


002740 


961 


MBT8C 


002766 


970 


MBT8D 


003014 


979 


M8T8E 


003044 


988 


MBTB 17 


003074 


998 


MBT8FG 


003110 


10J0 


MBT8I 


003134 


1016 


MCLRD 


030214 


5809* 


MCLRI 


030306 


5840* 


KCMPD 


017542 


4039* 


MD0SU6 


026636 


5248 
5420 


MOFSUB 


025126 


5015 
5149* 


MDIVD 


021244 


4381* 


MDIVF 


020056 


4133* 


MFA 


003206 


1054* 


MFACU 


003200 


1040* 


MFSRCM 


012566 


2857* 


MLCD 


032464 


6337* 


HLCF 


031626 


6201* 


MLDC 


017120 


3915* 


MLDC2 


031506 


6159* 


MLDDM2 


012656 


2891* 


ML0DM3 


012764 


2928* 


MLDDM4 


013124 


2972* 


MLDOM5 


013250 


3012* 


ML00M6 


013360 


3048* 


MLDOM7 


013460 


3078* 


MLDM27 


013566 


3114* 


MLD5UB 


024074 


4807 


MLFSUB 


023042 


4588 
4694 


ML SI 


030356 


5866* 


MLS? 


030474 


5907* 


ML S3 


030612 


5948* 


MLS4 


030746 


5991* 


MLS5 


031066 


6032* 


MLS6 


031222 


6075* 


MLS7 


031346 


6116* 


Ml.XP 


033106 


6517* 


MMOOD 


025436 


5240* 


MMODF 


024 336 


5007* 


MMULO 


023304 


4 799* 



J 12 



15 -MAR -84 16:58 P,\r.\= 155 
CROSS REFERENCE TABLE 



r 



USER SYMBOLS 



SEQ 0152 



928 



932 



1037* 



1022 
947* 
952 
964 
973 
982 
992 
1002 
1012* 
1019* 



5261 

5449* 

5024 



955 
969* 
978* 
987* 
997* 
1007* 



960* 



5274 
5033 



528 7 
5042 



5500 

5051 



5313 

50b 1 



5326 
5070 



5W 
5079 



535. 

5088 



5365 

5097 



5379 
5106 



5392 
5115 



5406 
5124 



4818 
4596 
4703 



4829 
4604 
4725* 



48)0 
4612 



4851 
4620 



4-U.2 48 7 3 
4628 4636 



4 >84 
4644 



48'»»i 
4652 



4 90/ 
4660 



49333 
4668 



4676 



4685 



GLOBAL AREAS 


MACU1 


30AC1052) 


KDJ11A.MAC 15-MAR-84 


15:51 


MMULF 


022242 




4580* 


MMUTST- 


000001 




1* 


MMVEC « 


000250 




298* 


MNGOP 


015104 




3454* 


MNNRM1 


013700 




3152* 


HNNRM2 


014164 




3238* 


MNNRM3 


014342 




3291* 


MNNRM4 


014510 




3341* 


MNRM 


016066 




36 79* 


MOOD * 


****** 


U 


5240 


MODF - 


****** 


u 


5007 


MCDGAR 


C25426 




5154 


MSB 


015720 




3629* 


MSCD 


034532 




6819* 


M3CF 


035622 




7048* 


MSDF 


027456 




5639* 


MSER » 


177744 




453* 


MSFD 


027136 




5537* 


MSFDI 


030144 




5783* 


MSG1 


036402 




7207 


MSG2 


036456 




7217 


MSXP 


035770 




7089* 


MULD * 


****** 


u 


4799 


MU_F » 


****** 


u 


4580 


MUVAD 


016212 




3719* 


MXOF1 


014634 




3380* 


MXVDEL* 


000001 




1* 


NGOP « 


****** 


u 


3454 


NNRM1 - 


****** 


u 


3152 


NNRM2 * 


*** *** 


u 


3238 


NNRM3 » 


****** 


u 


3291 


NNRM4 = 


****** 


u 


3341 


NRM 


****** 


u 


3679 


PARPAM- 


000001 




1* 


PIRQ * 


177772 




199* 


PIRQVE- 


000240 




293* 


PRO 


000000 




216* 


PR1 


000040 




217* 


PR2 


000100 




218* 


PR3 


000140 




219* 


PR4 


000200 




220* 


PR5 


000240 




221* 


PR6 


OC0300 




222* 


PR? 


000340 




223* 


PS 


177776 




196* 


PSW 


177776 




197* 


PURVEC* 


000024 




288* 


QBUSEX* 


000001 




1* 


RBUF = 


177562 




460* 


RCSR = 


177560 




459* 


RECDAT 


001036 




580* 


RECDST 


001126 




600* 



RECFtC 001106 



3297 
3 762 
4976 

5980 



15-MAR-84 16:58 PAGE 154 
CROSS REFERENCE TABLE 



K 12 

USER SYMBOLS 



SEQ 0153 



166 



509 



595 



752 



756 



761 



782 



874 



877 



7233 



7497 



5236* 5454 



7233* 
7241,7 



197 



602 



2897 
3351 
3795 
5194 
2865 



2934 
3389 
3825 
5494 
5772 



2962 
3466 
3858 
5603 
6807 



2970 
3494 
3888 
5715 
7036 



301P 

35 

W8 

531^ 



;.054 
3565 

3958 
6U8 



31,14 

358 7 
3996 
6547 



3120 
3609 
4020 
6476 



3159* 
3638 
4 108 
6741 



3160* 
3693 
4 350 



31/2 
3708 
454 9 

7154 



3244 
3/32 
4 <t>$ 

7174 



N12 



GLOBAL 


AREAS MACY11 


30AC1052) 


15-MAR 


•84 16 


58 PAGE 


157 




KDJ1LA. 


MAC 15 -MAR -84 


15:51 




CROSS REFERENCE 


TABLE -- 


USER SYMBOLS 


TAB29 


001556 


7050 


3604 










TAB29A 


001566 


7070 


3617 










TAB3 


001216 


6180 


2979 


2996 


3002 






TAB30 


001576 


7100 


3688 










TAB31 


001606 


7120 


3687 










THB32 


001616 


7140 


3703 










TAB33 


001626 


7160 


3704 










TAB 34 


001636 


7180 


3695 










TAB 4 


001226 


6220 


3261 


3280 








TAB40 


001646 


7200 


3727 


3728 


3751 


3752 




TAd"l 


001656 


7220 


3791 


3816 


3853 


3878 




TAB4P 


C01666 


7240 


3854 


3879 








TAB43 


001676 


7260 


3904 










TAB 4 5 


001706 


7280 


3924 


3930 


3947 


3951 


3992 


TAB46 


001716 


7300 


3936 










TAB47 


001/26 


7320 


3991 


5815 








TAB4 7A 


001736 


734 












TAB48 


001746 


7360 


4004 


4016 








TAB49 


001756 


7380 


3966 










TAB 5 


001236 


6260 


3121 










TAB5A 


001246 


6300 


3841 










TAB6 


001256 


6340 
4028 


2980 
4118 


3158 
5822 


3245 


3298 


3649 3668 3740 


TAB6A 


001266 


6380 


6187 










TAB 7 


001276 


6420 


3349 


3790 


3815 






TAB 8 


001306 


6460 


3350 


3363 


3364 






TAB9 


001316 


6500 


3355 










TAGRAM* 


000001 


10 


874 










TBITVF- 


000014 


284 fl 












TIHECU 


004424 


12/2 


13330 










TKVEC * 


000060 


2910 












TPVEC * 


000064 


2920 












TRAPVE- 


000034 


2900 


838* 


839* 








TRPFLG 


002122 


/920 


1158* 


1!88 + 


1221* 


1267 + 


1354* 1394* 1462+ 






17/8 + 


1846 + 


1906* 


1971* 


2032* 


2v>99+ 2154* 2199* 






2689* 


2776* 










THTVEO 


000014 


2850 












TSD31 


011662 


26430 


2654 










T5FP1 


003650 


11520 












TSFP10 


005214 


152 7 












ISf'Pll 


005450 


15980 












TSf P12 


005560 


16380 












TSFP13 


005634 


16650 












TSFP14 


006004 


17170 












TSFP15 


006160 


17 700 












TSKP16 


006400 


18330 












TSFP17 


006572 


18980 












TSFP2 


003742 


11820 












TSFP20 


00 ''006 


19650 












TSFP21 


00/206 


20260 












TSFP22 


0074 30 


20930 












TSFP23 


007616 


21480 












TSFP24 


0G7754 


21930 












1 S» P25 


010156 


2254 












TSf- P 26 


010320 


2302<> 












TSFP27 


010720 


241/0 













SEQ 0156 



3778 



3803 



3866 



3925 



4015 



1533* 
2260* 



1604 + 
2308+ 



1644* 
2423+ 



167 3* 
2531* 



1/25* 
2638* 



\) 1 



GLOBAi 


AFH AS 


KDJUA, 


MAC 


TSF P3 


004044 


TSF P30 


011064 


T5F-P31 


01165? 


TSfPSO 


011774 


TSf PS3 


0LV70 


T Sf P4 


004164 


TSf PS 


0O4444 


TSF ^6 


004554 


TSFP7 


004 760 


TSF 10 


0054 10 


TSf 15 


005 / 74 


TSF 14 


006150 


TSF IS 


0063 70 


TSF 16 


006 560 


T sf l : 


006 7 ?6 


t sf o 


004014 


T SF oo 


00 71 76 


TSF 01 


00/400 


TSF 00 


00/606 


TSf 03 


00 7 744 


TSF 04 


010146 


TSI 31 


011/64 


T SF 6 


004 750 


T SF / 


00S1S4 



MACU1 
IS -MAR -84 



TSTLOC OOH36 



Tsn 


O0?400 


TST10 


004SS4 


TST100 


051066 


TST101 


031000 


T ST 100 


051346 


TSI 103 


051506 


TST104 


051606 


TST10S 


050464 


TST106 


053106 


TST107 


054 530 


T S T 1 1 


004 760 


TST110 


035600 


TSI 111 


055770 


tsuo 


005014 


TST13 


00S4S0 


TST14 


005560 


TST1S 


0056 54 


TST16 


006004 


TST1/ 


006160 


TSI.' 


0U5 € 'OO 


tqtoo 


006400 



30A( ioso) 


IS MAR 


M4 16 


58 r'At'4: 


1 5* 






IS:S1 




CROSS RlHKfcMiNCfc 


TABl.t: 


USfcR 


SYMBOL 5 


10150 














ososo 














06300 














06830 














07 700 














1261* 














13480 














15880 














14560 














1537 


15 7 70 












16/? 


1 7080 












1704 


17610 












1777 


18090 












1845 


18890 












1905 


19560 












1190 


1190 


11^4 


1196 


tool* 






1973 


001 n 












JO 34 


00850 












0101 


01390 












0156 


01850 












0001 


0045< 












0640 


06740 












159^ 


14480 












14t>6 


15060 












6080 


1417 


1419 


1470 


1475 


1484 


1408 


1680 


1685 


1 709 


1730 


1735 


1M1 


1780 


1855 


1856 


1910 


1915* 


1914 


1917 


1905 


0040 


0045 


0051 


0O60 


0105 


0108* 


0109 


0009* 


0011 


0000 


0064 


22'. 


00 70 


00 76 


0466 


0469 


04 75 


0535 


0539 


0540 


0556 


0697* 


0699 


708* 


0710 


0719* 


0/01 


0/80 


0954* 


0955 


0956* 


0957 


094 9 


0'«55 


3019 


5915 


5919 


5954 


5955* 


5956* 


595 7 


V»5fl 


6059* 


6CS0* 


6041 


604?* 


6046 


605? 


6081 


6105* 


6104* 


6105 


6106* 


6130 


6136 


6140 


8930 














15900 














6056 














b<V90 














6.; 000 














61«*") 














600SO 














6V*W 














*.50i« 














t8050 














14600 














70500 














70950 














15510 














16000 














16400 














16690 














W.'io 














1 7/40 














10480 














iMc'O 















SI Q 0157 



154 5 


1546 


1555 


1559 


lbli 


16 7 7 


1765* 


1 786 


1/89 


1 795 


1796 


jeso 


1977 


1980 


1985 


1989 


00 58 


004 1* 


0111 


0160 


0165* 


0166 


0?05 


0008* 


040 7 


0451 


04 54 


0448 


04 51 


0457 


0559 


0565 


05/4 


J5 7 7 


058 3 


069 5 


784* 


786 


0/95» 


79/ 


0806* 


0808 


1000* 


SO 50 


5086* 


5089 


58 70 


58 78 


591.0 


V>68 


599/ 


5998* 


600 5 


60 58 


6064?* 


6063 


608/ 


6095 


6099 


6100 



J13 



GLOBAL 


ARF.AS 


MACU1 


30AC1052) 


15-MAR 


!-84 16:58 PAGE 167 
















SEQ 0165 


KDJ11A. 


MAC 1. 


5-MAR-84 


15:51 




CROSS REFERENCE TABLE - 


- MACRO 


NAMES 














$$NEWT 


294* 


884 


1041 


1153 


1183 1216 1262 


1349 


1389 


1457 


1528 


1599 


1639 


1666 


1718 




1771 


1839 


1899 


1966 


2027 2094 2149 


2194 


2255 


2303 


2418 


2526 


2633 


2684 


2771 




2858 


2892 


2929 


2973 


3013 3049 3079 


3115 


3153 


3239 


3292 


3342 


3381 


3455 


3630 




3680 


3720 


3916 


4040 


4134 4382 4581 


4800 


5008 


5241 


5538 


5640 


5784 


5810 


5841 




5867 


5908 


5949 


5992 


6033 6076 6117 


6160 


6202 


6388 


6518 


6820 


7049 


7090 




$$SET 


7526* 


7545 


7554 


7555 


7556 7557 


















$$SETM 


859* 


866 
























$$SKIP 


294* 


























.EQUAT 


159* 


184 
























.HEADE 


161* 


166 
























.KT11 


159* 


294 
























.SETUP 


161* 


471 
























.$ACT1 


161* 


499 
























. $APTB 


159* 


544 
























, $APTH 


161* 


509 
























.$APTY 


162* 


7560 
























. $EOP 


159* 


7196 
























.5ERRG 


162* 


























. $READ 


162* 


























.STRAP 


161* 


7497 
























.$TYPD 


160* 


7353 
























.$TYPE 


160* 


7246 
























.$TYP0 


162* 


7420 
























.S40CA 


159* 


472 

























. ABS. 040234 



000 



ERRORS DETECTED: 

CZKDLB/EN: ABS .CZKDLB . SEQ/CRF/DOC/SOL/NL: TOC'SYSMAC, SML/ML .CZKDLB . MAC/ML, KDJ11A. MAC 
RUN-TIME: 249 141 10 SECONDS 
RUN-TIME RATIO: 539/400-1.3 
CORE USED: 52K C 103 PAGES) 

DOCUMENT PAGES: 165 



KOJllA.MAC 


15-MAR., 


. ,B1 


KOJllA.MAC 


15-MAR., 


..CI 


KOJllA.MAC 


15-MAR.. 


, .Dl 


KOJllA.MAC 


15-MAR,, 


,.E1 


KOJllA.MAC 


15-MAR.. 


,.fi 


KOJllA.MAC 


15-MAR.. 


. .Gl 


KOJllA.MAC 


15-MAR,. 


, ,M1 


KOJllA.MAC 


15-MAR.. 


..11 


KOJllA.MAC 


15-MAR.. 


,,J1 


KOJllA.flAC 


15-MAR.. 


..Kl 


KOJllA.MAC 


15-MAR.. 


,.L1 


KOJllA.MAC 


15-MAR., 


..Ml 


KOJllA.MAC 


15-MAR.. 


.,N1 


KOJllA.MAC 


15-MAR., 


v,B2 


KDJllA.MAr 


15-MAR.. 


,.C2 


KOJllA.hAC 


15-MAR.. 


..02 


KDJ11A,MAC 


15-MAR.. 


..E2 


KOJllA.MAC 


15-MAR.. 


.,F2 


KOJllA.MAC 


15-MAR.. 


..G2 


KOJllA.MAC 


15-MAR.. 


..H2 


KOJllA.MAC 


15-MAR,. 


..12 


KOJllA.MAC 


15-MAR.. 


,,J2 


KOJllA.MAC 


15-MAR.. 


..K2 


KOJllA.MAC 


15-MAR.. 


..L2 


KOJllA.MAC 


15 MAR, . 


,.M2 


KOJ11A.HAC 


15-MAR.. 


..N2 


KOJllA.hAC 


15-MAR.. 


..B3 


KOJllA.MAC 


15-MAR.. 


..C3 


KOJllA.MAC 


15-MAR.. 


,.03 


XOJUA.MAC 


15-MAR., 


,.E3 


KOJllA.MAC 


15-MAR. . 


..F3 


KOJllA.MAC 


15-MAR. . 


. .G3 


KOJllA.MAC 


15-MAR. . 


,.H3 


KOJllA.MAC 


15-MAR. . 


..13 


KOJllA.MAC 


15-MAR. . 


..J3 


KOJllA.MAC 


15-WR.. 


..K3 


KOJllA.MAC 


15-MAR.. 


..L3 


KOJllA.MAC 


15-MAR.. 


..M3 


KOJllA.MAC 


15-MAR.. 


, ,N3 


KOJllA.MAC 


15-MAR.. 


,.B4 


KOJllA.MAC 


15-MAR.. 


..C4 


KOJllA.MAC 


15-MAR.. 


..D4 


KOJllA.MAC 


15-MAR.. 


..E4 


KOJllA.MAC 


15-MAR. . 


,.F4 


KOJllA.MAC 


15-MAR. . 


. G4 


KOJllA.MAC 


15-MAfc.. 


..H4 


KOJllA.MAC 


15-MAR.. 


..14 


KOJllA.MAC 


15-MAR. . 


..J4 


KOJllA.MAC 


15-MAR. . 


. .K4 


KOJllA.MAC 


15-MAR. . 


..L4 


KOJllA.MAC 


15-MArt.. 


..M4 


KOJllA.MAC 


15 -MA*., 


.,N4 



KOJllA.MAC 
KOJllA.MAC 
KOJllA.MAC 
KOJllA.MAC 
KDJ11A.MAC 
KOJllA.MAC 
KOJllA.MAC 
KOJllA.MAC 
KOJllA.MAC 
KOJllA.MAC 
KOJllA.MAC 
KOJllA.MAC 
KOJllA.MAC 



KOJllA.MAC 
KOJllA.MAC 
KOJllA.MAC 
KOJllA.MAC 
KOJllA.MAC 
KCJll.^.MAC 
KOJllA.MAC 
KDJ11A.M\C 
KOJllA.M^r 
KOJllA.MAC 
KOJllA.MAC 
KOJllA.MAC 
KOJllA.MAC 



KOJllA.MAC 
KOJllA.MAC 
KOJllA.MAC 
KOJllA.MAC 
KOJllA.MAC 
KOJllA.MAC 
KOJllA.MAC 
KOJllA.MAn 
KOJllA.MAC 
KOJllA.MAC 
KOJllA.MAC 
KOJllA.MAC 
KOJllA.MAC 



KDJUA.MAC 
KDJ11A.MAC 
KOJllA.MAC 
KOJllA.MAC 
KOJllA.MAC 
KOJllA.MAC 
KOJllA.MAC 
KOJllA.MAC 
KOJllA.MAC 
KOJllA.MAC 
KOJllA.MAC 
KOJllA.MAC 
KDJUA.MAC 



15 MAR. . 
15-MAR.. 
15-MAR.. 
15-MAR,, 
15-MAR.. 
15-MAR., 
15-MAR.. 
15-MAR . 
15-M'*.. 
lS-'IM.. 
15-MAR.. 
l.VMAR.. 
15-MAR,, 



. .85 
. ,C5 
..05 
. ,E5 
. ,F5 
. .G5 
. .H5 
, .IS 
, ,J5 
. .Kf 
. .15 
..*5 
.♦h5 



15-MAR, 

15-MAR.. 

\5-MAH.. 

15-KAR.. 

l. T -MAR.. 

J3-HAR.. 

15-MKR.. 

L5-MAK.. 

15-MAR.. 

15-MAR.. 

15-MAR.. 

15-MAR.. 

15-MAR.. 



15-MAR.. 
15-MAR.. 
15-MAR.. 
15-MA.T., 
15-MAR.. 
15-MAR.. 
15-MAR.. 
15-MAR.. 
15-MAR. . 
15 i.AR,. 
15-M*W. . 
15-MR.. 
15-MAR.. 



15-MAR.. 
15-MAR.. 
15-MAR.. 
15-MAR.. 
15-MAR.. 

15-mv;.. 

15-MAR.. 
15-MAR.. 
15-MAR.. 
15-MAR.. 
15-MAR., 
15-MAR.. 
15-MAR,, 



.B6 

,C6 
.06 
,E6 

.F6 
.G6 
,H6 
.16 

, )6 

.L6 
,M6 

.N6 



. .B7 
. .C7 
. .D7 
. .E7 
. ,F7 
. ,G7 
. ,H7 
. .17 
. ,J7 
. ,K7 
..IV 
,.M/ 
. ,N7 



..86 

. .ca 
. .Dd 

. .Ed 
. .F8 
. .G6 

, ,H8 
. .18 
. ,J8 
. .K8 
. ,L8 
. .Mfl 



KOJllA.MAC 


15-MAR. , 


, ,B9 


KOJllA.MAC 


15-MAR.. 


. ,C9 


KOJllA.MAC 


15-MAR. . 


..09 


KOJllA.MAC 


15*!iAR. . 


. .E9 


KOJllA.MAC 


15-MAR. . 


. .F9 


KOJllA.MAC 


U'-MAR,. 


. ,G9 


KOJllA.MAC 


15-MAR,. 


. ,H9 


KOJllA.MAC 


l k -HAR.. 


..19 


KOJllA.MAC 


15-NAR.. 


. ,J9 


KDJ11A.MAC 


15 -MR.. 


, ,K9 


KOJllA.MAC 


15-MAR,. 


. ,L9 


KOJllA.MAC 


15-MAR.. 


..M9 


KOJllA.MAC 


15-MAR.. 


. ,N9 


KOJllA.MAC 


15-MAR.. 


. .BIO 


KOJllA.MAC 


5-MAR.. 


..CIO 


KOJllA.MAC 


;/5-MAR.. 


..010 


KOJllA.MAC 


13- MAR.. 


. .E10 


KOJllA.MAC 


15-MAR,. 


♦ ,F10 


KOJllA.MAC 


l r -MAR,. 


. .G10 


KOJllA.MAC 


U-.^AR. . 


. .HiO 


KDJllA.NftC 


15-MAR. . 


. .110 


KDJUA.f \C 


15-MAR.. 


. .J10 


KOJllA.MAC 


15-MAR.. 


. ,K10 


KOJllA.MAC 


15-MAR., 


. .L10 


XOJUA.MAC 


15-MAR.. 


. .M10 


KOJllA.MAC 


15-MAR.. 


. ,N10 


KOJllA.MAC 


15-MAR.. 


, .Bll 


KOJllA.MAC 


15-MAA.. 


..C1L 


KOJllA.MAC 


15-MAR,. 


..Oil 


KOJllA.MAC 


15-MAR. . 


..Ell 


KDJ11A.MAL 


15-MAR.. 


..Fll 


KDJ11A.MAC 






KOJllA.MAC 


15-MAR , 


..Ml 


KOJllA.MAC 


15-MAR.. 


. ,1U 


KOJllA.MAC 


15-MAR. . 


..JU 


KOJllA.MAC 


15-MAR.. 


..Kll 


KOJllA.MAC 


15-MAR. . 


. .Lll 


KOJllA.MAC 


15-MAR.. 


..Mil 


KOJllA.MAC 


15-MAR.. 


..Nil 


KOJllA.MAC 


15-MAR.. 


. .B12 


KOJllA.MAC 


15-MAR . 


..C12 


KOJllA.MAC 


15-MAR. , 


,,012 


KOJllA.MAC 


15-MAR. . 


..E12 


KOJllA.MAC 


15-MAR. . 


..F12 


KOJllA.MAC 


15-MAR.. 


..G12 


KOJllA.MAC 


15-MAR. . 


. .H12 


KOJllA.MAC 


15-MAR, , 


..112 


KOJllA.MAC 


15-MAR.. 


..J12 


KOJllA.MAC 


15-MAR. . 


, ,K12 


KOJllA.MAC 


15-MAR.. 


..L12 


KOJllA.MAC 


15-MAR. . 


..M12 


KDJUA.MAC 


15-MAR, , 


,*N12 



KDJ11A.MAC 


15-MAR.. 


. .B13 


KOJllA.MAC 


15-MAR.. 


. ,C13 


KOJllA.MAC 


15-MAR.. 


. .013 


KOJllA.MAC 


15-MAR. . 


. .E13 


KOJllA.MAC 


15-MAR.. 


..F13 


KOJllA.MAC 


15-MAR.. 


..G13 


KOJllA.MAC 


15-MAR,. 


. .H13 


KOJllA.MAC 


15-MAR.. 


..113 


KOJllA.MAC 


15-MAR.. 


..J13 



